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SEQ 1 



1 
2 
3 
4 

5 
6 

7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



.REM 8 



IDENTIFICATION 



PRODUCT CODE 
PRODUCT NAME 
PRODUCT DATE 
MAINTAINER: 
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AC - T771B MC 

CZTKABO TK50 FRONT END FUNCTIONAL 
26 - JUL - 1985 

TAPE AND OPTICAL DIAGNOSTIC ENGINEERING 
RAYMOND CHANG 
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EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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DIGITAL 
DEC 



POP 
OECUS 



UNIBUS 
OECTAPE 
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46 REVISION HISTORY 

4? 

48 APRIL 1985 NEU RELEASE 

49 

50 JUNE 1985 REVISION B 

51 ADDED CODE SO THAT PROGRAM CAN RUN ON 

52 POP - 11 UNIBUS FAMILY CPUS. 
53 
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55 1 GENERAL INFOR»tATION 
56 

57 1.1 Product Description 
58 

59 The TKSO Functional Diagnostic is intended to provide 

60 confidence in the basic functionality of the TKSO subsystem. As such. 

61 this should be the first host level diagnostic run on the TKSO 

62 subsysteii to verify installation, or for troubleshooting. Throughout 

63 the prograa, emphasis is placed on isolating faults to the Field 

64 Replaceable Unit (FRU). 
65 

66 The program runs in standalone mode in conjunction nith the 

67 PDP-11 family Diagnostic Supervisor. In addition to host level 

68 testing, the program will implicitly invoke the TKSO's controller 

69 resident Level 1 self-test microdiagnostics as nell as explicitly 

70 invoking the controller's Level 2 microdiagnostics. 
71 

72 
75 

74 1.2 Product Users And Uses 

75 

76 

77 1. DHT testing 
78 

79 2. As appropriate at various manufacturing facilities 
80 

81 3. Field service personnel 
82 

83 4. DEC customers Hho choose to provide their own ma intai nance 

84 

85 

86 

87 

88 1.3 Performance Goals 
89 

90 This program will test up to four TKSO's In a sequential 

91 manner. To run a full pass of the program, a scratch tape must be 

92 mounted in the transport and an operator must be present to perform 

93 manual intervention. However, appropriate subsets of the program can 

94 be run if there is no scratch tape, or the operator inhibits manual 

95 intervention tests. Furthermore, the first pass of the program will 

96 run in "quick verify" mode; i.e.. a single iteration of each test will 

97 be performed. If multiple passes are specifieo by the operator, the 

98 second and all subsequent passes will run with each test executed with 

99 multiple iterations. F'rst pass execution time will be approximately 

100 20 minutes while second pass execution time will be approximately 24 

101 minutes. These pass times are based on a single unit under test. 
102 

103 1.4 Pass/Fail Criteria 
104 

105 This program employs a bottom-up approach to testing the TKSO: 

106 that is. Test 1 will attempt to verify the simplest level of 

107 host-to-controller communication as outlined in UQSSP. Each 

108 subsequent test builds upon the functionality already verified in 

109 previous tests. Hence, most errors encountered by the program will be 

110 considered as fatal device errors and the failing unit w'll be dropped 

111 from the rest of the test sequence. 
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112 
113 
114 

115 1.5 Fallsoft Goals 

116 
117 



Unit specific problems will be handled by the program. CPU 

110 faults (i.e., illegal traps or interrupts) Mill be handled by the 

Diagnostic Supervisor. System faults Mill be handled by the 
Diagnostic Supervisor, fault dependent. 



119 Diagnost 

120 - - . 



121 
122 
123 

124 1.6 Restrictions 

125 

126 Although basic read/Mr ite testing is performed, this program 

127 is not interested in measuring the subsystem's data reliability. 
120 Uhile recoverable data errors m'II be reported by the program, no 

129 attempt Mill be made to determine the subsystem's compl'ance Mith 

130 error rates. Unrecoverable data errors Mill be considered as fatal 

131 device errors, although the media could be the causative factor. 
132 

133 
134 

135 1.7 Non -Goals 

136 

137 This program is intended to verify the gross functionality of 

138 host-to-controller communications, the integrity of the controller 

139 hardMare, controller-to-drive communication and the basic 

140 functionality of the dr've. It is not intended as a verification of 

141 TMSCP protocol as implemented in the controller firmMare, and no 

142 testing of TMSCP commands is provided. 
143 

144 
145 

146 1.8 Runtime Environment Requirements 

147 

148 Runtime environment requirements include: 

149 

150 1. XXDP* Diagnostic Supervisor 

151 

152 2. PDP-11 family CPU 

153 

154 3. ?8 KU memory 

155 

156 4. Console Terminal 

157 

158 5. Load Device 

159 

160 6. 1 to 4 TK50 tape drives Mith controllers 

161 

162 7. 1 tc 4 TK50 scratch cartridges (optional) 

163 

164 8. LCP-5 UFD softMare (optional) 

165 
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SEQ 5 



167 2 USER INTERFACE 

168 

169 2.1 User Dialogue 

170 

171 The folloMing user dialogue Mill be provided at program 

172 start-tine to alloM the user to establish certain operational 

173 parameters of the progran. 
174 

175 
176 

177 2.1.1 Hardware Questions - 

178 

179 This set of questions must be answered when the program is 

180 first started. 
181 

182 CHANGE HAROUARE (D? no default 

183 

184 NUMBER OF UNITS (D)? enter number from 1 4 

185 UNIT X 

186 BASE ADDRESS (0) 774500? 

187 VECTOR (0) 224? 

188 UNIT NUMBER (0)? 
189 

190 
191 

192 2.1.2 Definition Of Hardware Questions - 

193 

194 CHANGE HARDUARE This question merely wants to know if you want to 

195 reconfigure the units under test. It must be answered "yes" on the 

196 first pass of the program. 
197 

198 NUMBER OF UNITS - Enter the number of TKSO's to be tested. 

199 

200 BASE ADDRESS - Enter the 10 address of the unit to be tested. 

201 

202 VECTOR - Enter the vector location to be used for the unit. 

203 

204 UNIT NUMBER - Enter the MSCP-specif ied unit number for the unit. 

205 

206 This entire set of questions will be repeated up to four times. 

207 depending on the user's response to the "number of units" question. 
208 

209 
210 

211 2.1.3 Software Questions - 

212 

213 Most of the optional functionality of the program is either 

214 handled automatically by the program or through established procedures 

215 provided by the Diagnostic Supervisor hence there are no software 

216 questions. 
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SEQ 6 



218 3 ERROR REPORTS 

219 

220 Error reports Mill have two basic Formats as described below. 

221 It IS anticipated that, due to program partitioning, it will b« 

222 possible to unambiguously define a single FRU as the cause of any 

223 error condition. 
224 

225 
226 

227 3.1 Error Format 1 

228 

229 This basic format will be used by all host level testing. 

230 

231 CZTKA OVC FTL ERR eee ON UNIT 11 TST tt SUB ss PC: xxxxxx 

232 5A REG CONTENTS INCORRECT 

233 IN INIT SEQUENCE STEP «: n 

234 SA EXPECTED: yyyyyy SA RECEIVED: zzzzzz 
235 

236 *****FAILING FRU: CNTL 

237 

238 In this example, the fields have the following meanings: 

239 

240 

241 - eee » discrete error number as defined by program 

242 

243 11 ■ logical unit number assigned to unit- in-error dur'ng 

244 hardware questions 
245 

246 - tt ' test number during which error occurred 

247 

248 - ss > subtest number 

249 

250 - xxxxxx ■ program location of error call 

251 

252 - n = step number of the UQSSP initialization sequence which 

253 detected the error condition 
254 

255 - yyyyyy » expected contents of SA register for this step 

256 

257 - zzzzzz * actual SA register contents 

258 

259 

260 

261 

262 3.2 Error Format 2 

263 

264 This format will b« used for errors detected by the Level 2 

265 microdi agnostics. 
266 

267 The DUP "Receive Data" command is used to monitor the status 

268 of the Level 2 diagnostic and to collect results. It is valid to 

269 issue a "Receive Data" command at any time after the Level 2s have 

270 been started. 
271 

272 CZTKA DEV FTL ERR eee ON UNIT 11 TST 09 SUB ss PC: xxxxxx 

273 DRIVE ERROR 
274 
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SEQ ^ 



275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 



**** LEVEL 2 niCRODIAGNOSTIC DUMP ***** 



ProgrsM Status *** 

Drive Status 

Test Nu»ber 

Track Number 

THSCP Command 

TMSCP Response Flag 

TMSCP Unit Flags *** 



Error Log (Tape Transfer Error) 
Error Format 
Error Flags 

Event Code *** 

Error Retry Level 

Number of Reties 

Position (LoH Order) *** 

Position (High Order *** 

Controller Status 

Drive Error Code 

Drive Flags 

Track number 

Physical Block Number *** 
Logical Block Number 
Tape Count 0 
Tape Count 1 
Tape Count 2 

Drive State *** 
Read/Urite State *** 
Operation Flags *** 

Blocks Uritten Channel 1 
Blocks Uritten Channel 2 
Blocks Read Channel 1 
Blocks Read Channel 2 
Soft Urite Channel 1 
Soft Urite Channel 2 
Ecc Corrected Channel 1 
Ecc Corrected Channel 2 
Read Repositions Channel 1 
Read Repositions Channel 2 



3.2.1 Program Status - 

The program status word is only valid when read with a message 
number of 1. Upon an error, it Mill contain the status field of the 
TMSCP command which produced the error. Note that there are several 
diagnostic error codes which will be returned with a "ST.DIA" 
diagnostic status. 

If the test completed ixithout a fatal or hard error, this word 
Mill be zero (Normal Successful Completion). 
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SEQ 8 



332 
333 
334 

335 3.2.2 Drive Status - 

336 

337 The drive status Nord is only updated during the level i idle 

338 loop. Therefore, this Mord is only valid Nith a message number of 2. 

339 This nord Mill contain the status returned for the TMSCP "Get Unit 

340 Status" coamand. The unit flags for the "Get Unit Status' command 

341 Mill be in the Unit Flag Field. 
342 

543 
344 

345 3.2.3 Test f4unber 

346 

347 This byte Nill contain the number of the test during which an 

348 error occurred (only valid when message number is 1 and program status 

349 is non-zero). This is only used for the Level 2 diagnostic. 
350 

351 
352 

353 3.2.4 Track Number - 

354 

355 This byte nIII contain the track number of track most recently 

356 Mr itten/read. Valid only for message number 1. 
357 

358 
359 

360 3.2.5 TMSCP Command - 

361 

362 This byte Mill contain the opcode of the command in error 

363 (only valid when message nua^er is 1 and program status !s non-zero). 

364 TMSCP opcodes used include URITE. READ. REPOSITION. ONLINE. AVAILABLE. 

365 GET UNIT STATUS, and SET CONTROLLER CHARACTERISTICS. 
366 

367 3.2.6 TMSCP Response Flags - 

368 

369 This byte will contain the flag field of the TMSCP response 

370 packet of the command in error. It Mill only be valid Mhen the 

371 command in error field is valid. 
372 

373 
374 

375 3.2.7 TMSCP Unit Flags - 

376 

377 This Mord Mill contain the unit flags for the "Get Unit 

378 Status" command issued during the Level 2 Idle Loop. From this Mord, 

379 the host program Mill be able to tell if the drive is write protected. 

380 Unit Flags are only valid Mhen Drive Status is valid. 
381 

382 
383 

384 3.2.8 Error Format - 

385 

386 This byte Mill contain the format code for any hard error for 

387 Mhich an error log Mas received. If no error log Mas received, this 

388 byte Mill contain 255 decimal (OFF Hex. 377 Octal. 11111111 Binary). 
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SEQ 9 



389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

410 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 



In this case, all information Mhich follows may be ingncred (i.e. 
it's undefined). This is also only valid for message 1. 



3,2.9 Error Flags 

This byte will contain the flags from the error log. It is 
only valid when the error log format code is not equal to 255(10). 



3.2.10 Event Code - 

This Hord will contain the event code of the error log. For 
more detail on this and other fields of the error log. please refer to 
"TK50 Magnetic Tape Sub-system Functions". 11 January 1985, Ric 
Perron. 



3.2.11 Error Retry Level - 

This byte will contain the level field for a Tape Transfer 
error. Only valid when Error Log Format Code is equal to Tape 
Transfer error. 



3.2.12 Number Of Retries - 

This byte will contain the retry field for a Tape Transfer 
error. Only valid when Error Log Format Code is equal to Tape 
Transfer error. 



3.2.13 Position - 

This double word will contain the tape position for a Tape 
Transfer error. Only valid when Error Log Format Code is equal to 
Tape Transfer error. 



3.2.14 Controller Status - 

This byte will contain the controller status code and is only 
valid when Error Log Format Code is equal to Tape Transfer error. 



3.2.15 Drive Error Code - 

This byte will contain the drive error code as reported for a 
Drive error. Only valid when Error Log Format Code is equal to Tape 
Transfer error. 
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SEQ 10 



446 
447 
448 

449 3.2.16 Drive Error Code 

450 

451 This byte will contain the drive error code as reported for a 

452 Drive error. Only valid when Error Loo Format Code is equal to Tape 

453 Transfer error. 
454 

455 
456 

457 3.2.17 Drive Flags 

458 

459 This byte will contain the drive flags. Only valid when Error 

460 Log Format Code is equal to Tape Transfer error. 
461 

462 
463 

464 3.2.18 Track Number - 

465 

466 This byte will contain the track number as reported for a '''ape 

467 Transfer error. Only valid when Error Log Format Code is equal to 

468 Tape Transfer error. 
469 

470 
471 

472 3.2.19 Physical Block Number - 

473 

474 This word will contain the physical block number for a Tape 

475 Transfer error. Only valid when Error Log Format Code is equal to 

476 Tape Transfer error. 
477 

478 
A79 

480 3.2.20 Logical Block Number - 

481 

482 This byte will contain the logical block number for a Tape 

483 Transfer error. Only valid when Error Log Format Code is equal to 

484 Tape Transfer error. 
485 

486 
487 

488 3.2.21 Tape Counts 0, 1, And 2 - 

489 

490 These bytes will contain the tape counts as reported for a 

491 Drive error. Only valid when Error Log Format Code is equal to Tape 

492 Transfer error. 
493 

494 
495 

496 3.2.22 Drive State - 

497 

498 This word will contain the drive state as reported in the 

499 error log. Only valid when Error Log Format Code s equal to Tape 

500 Transfer error. 
501 

S02 
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505 

504 3.2.23 Read/Ur!te State 

505 

506 3.2.24 Operation Flags - 

507 

508 This Hord Mill contain the Operative ^lags as reported in the 

509 error log. Only valid Nhen Error Log Format Code is equal to Tape 

510 Transfer error. 
511 

512 
513 

514 3.2.25 Controller Error Code - 

515 

516 This Mord Nill contain the controller error code as reported 

517 for a Controller error. Only valid Nhen Error Log Format Code is 

518 equal to Controller error. 
519 

520 
521 

522 3.3 Get DUST Status 

523 

524 The DUP "Get DUST Status" command can be issued to verify that 

525 the Level 2 diagnostics are still running. If the progress count 

526 received for tmo consecutive "Get DUST Status" commands is identical. 

527 then progress has stopped. The Level 2 diagnostic should be aborted 

528 and restarted. 
529 

530 
531 

532 4 STOPPING THE LEVEL 2 DIAGNOSTIC 

533 

534 The Level 2 diagnostic will never terminate itself. If it is 

535 desired to stop the test in progress, th^ host must issue the DUP 

536 "Abort Program" command. 
537 

538 
539 

540 4.0.1 Blocks Ur itten/Read - 

541 

542 These double Mords will contain the current number of block 

543 written/read on a per channel basis. 
544 

545 
546 

547 4.0.2 Soft Write Errors - 

548 

549 These Mords Mill contain a count of the number of soft write 

550 errors on a per channel basis. 
551 

552 4.0.3 ECC Corrected Error - 

553 

554 These words Mill contain a count of the number of CRC 

555 miscompares on a data block during a read operation Mhich Mere 

556 corrected by an ECC group. This count is maintained on a per channel 

557 basis. 
558 

559 
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560 

561 4.0.4 Read U/Reposition - 
562 

569 These words will contain a count of the number of CRC 

564 aiscoapares on data blocks during a read operations Mh!ch could only 

565 be corrected by repositioning. That is. the ECC group could not 

566 correct the read error for the data block without repositioning. 

567 Kw « 

568 
569 

570 4.0.S Data Conpare Error Inforaation - 
571 

572 This buffer area will contain the following information: byte 

573 number in error, expected byte, and actual byte read. The first 10 

574 bytes will be the byte value expected. The next 10 bytes will be the 

575 byte value read (actual). The final 10 words will contain the byte 

576 offset into the block in error (0 to 511). 
577 

578 
579 

560 4.0.6 Number Of Data Compare Bytes - 

581 

582 This word will contain the number of bytes which miscompar'-d 

583 in the block. 
584 

585 
586 

587 4.1 Diagnostic Error Codes 

588 

589 In most cases, the Program Status Word will contain the error 

590 code returned by the controller firmware for the failing command. In 

591 the case where an error is detected by the diagnostic and not by the 

592 firmware, the Program Status Word will contain a diagnostic status 

593 code . 
594 

595 The diagnostic status code is indicated by the "IF" hex status 

596 (ST.DIA internal diagnostic status code - see MSCP specification). 

597 The subcodes will be as follows: 
598 

599 4.2 Data Compare Error 

600 

601 This indicates that the compare operation between the data 

602 pattern which was written and read failed. The data compare buffer 

603 area will contain up to 10 bytes of the failing record, including byte 

604 location within the block, expected and actual data read. In 

605 addition, a total count of the bytes in error is available. 
606 

607 
608 

609 4.3 Controller Error 

610 

611 This code will be set in response to the diagnostic internally 

612 receiving an error log indicating a controller error. The controller 

613 error code field will contain the error code received. 
614 

615 
616 
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617 4.4 Bad Paraacters Error 

618 

619 This error code indicates that the paraacters passed to the 

620 Level 2 diagnostic were invslid. 
621 

622 
623 

624 4.5 Bad Pattern 

625 

626 This subcode indicates an internal diagnostic error and should 

627 never be seen. 
628 

629 
630 

631 4.6 Response Address Error 

632 

633 This subcode indicates an internal firmNare or diagnostic 

634 problem and should never be seen. 
635 

636 
637 

638 4.7 Host Address Error 

639 

640 This subcode indicates an internal f IrmHare problem and should 

641 never be seen. 
642 

643 
644 

645 4.8 UnknoNn Error Log 

646 

647 This subcode indicates an internal firmware problem and should 

648 never be seen. 



PARAfCT£R COOXW HAOtO V0S.02 Thursday 2S Jul-BS 09:27 Page 7 SEQ 14 



650 5 FUNCTIONAL DESCRIPTION 

651 

652 The follOMing teat descriptions all have certain points in 

6SS coMon. All errors specified beloM Mill cause the unit to be dropped 

6M «m the test, unless specifically noted to the contrary. 

655 Furthcraore, if the operator has chosen loop-on-error (LOC flag set) 

656 scope loops Mill return to the beginning of the test containing the 

657 failure. Exceptions to this Mill also be noted explicitly belOM. To 
650 understand the norMl four step initialization sequence, refer to the 

659 UQSSP; the descriptions of tests that use this sequence Mill only 

660 highlight unique features utilized by that specific test. 
661 

t>62 
665 

664 5.1 Test 1 - Existence Verfication Test 

665 

666 This test verifies the existence of the IP and SA registers by 

667 simply addressing them. failure here could be caused by incorrect 

668 address setting in the controller DIP SMitch. faulty controller logic 

669 or operator error in specifying base address. 

670 
671 
672 

673 5.2 Test 2 - SA Register Wrap Test 

674 

675 This test cownenees the UQ-port initialization sequence, but 

676 sets the "UR" bit in its Step 1 response to the controller. Upon 

677 seeing this bit set, the controller should immediately enter the 

678 Diagnostic Wrap Mode. The program Mill noM Mr'te and read a floating 

679 1 pattern to and from the SA register. The process Mill then be 

680 repeated Mith a floating 0 pattern. 
681 

662 A failure to echo the written data Mill result in a callout to 

683 the controller. If loop on error is set. the program Mill loop on the 

684 failing Mrite and read. 
685 

686 
687 

686 5.3 Test 3 - Initialization Test And PoMer Up Hicrodi agnostics 

689 

690 This test commences the UQ-port initialization sequence Mith 

691 interrupts disabled. It Mill verify that all step transitions occur 

692 within the alloted time, and that all host supplied information is 

693 correctly echoes oy the controller. The program further verifies that 

694 no interrupts occur as a result of the step transitions. 
695 

696 NOTE 
697 

698 The diagnostic Mill verify that interrupts do not 

699 occur at the vector assigned to the Unit Under Test 

700 (UUT). Inappropriate interrupts to an unassigned 

701 vector Mill be trapped by th« Diagnostic Supervisor 

702 and Mill abort the program. 
703 

704 

705 It should be noted the<t. in accordance with the UQSSP. the 

706 controller's poMer-up microdi agnost ics Mill be executed during Step 1 
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SEQ 15 



'^07 of th* sequence. Controller specific failure codes Mill be posted n 

70a the SA register by the self tests: these could be correlated to a 

709 failing test number as an aid in troubleshooting. All failures n 

710 this test, however. Mill indicate the controller as the failing TRU. 

711 The specific codes Mill be 10 consecutive nuMbcrs in the range of 

712 600-699 (decimal): exact values have not been desionated. 
715 

714 
715 

716 5.4 Test 4 - Vector And Interrupt Test 

717 

<^18 Test 3 is repeated, this time Mith interrupts enabled. The 

719 checks of test 3 Mill also be performed, but noM the program m'11 also 

720 verify that an Interrupt occurs at each step transition. No interrupt 

721 should occur at the end of step 4. Failures 'n this test Mill be 

722 attributed to the controller. 
725 

724 
725 

726 5.5 Test 5 - BR Level Test 

727 

728 This test Insures that the TK50 cannot interrupt Mhen the CPU priority 

729 is set to 7. The test goes through only the first step of the In it 

730 sequence, since the controller Mill "hang" Malting for the interrupt 

731 acknoMlcdgc. Failures in this test mIU be attributed to the 

732 controller. 
733 

734 
735 

736 5.6 Test 6 - Purge And Poll Test 

737 

738 The Initialization sequence Mill again be started by the host, 

739 but in step 3. the host Mill set the "PP" (Purge and Poll) bit. The 

740 first part of this test will simulate the UQSSP handshake for a bus 

741 adapter purge. The host Mill then request the controller to commence 

742 "poll" testing. The controller will noM begin DMA activ'ty in both 

743 directions to the host- ! dent! ficd communication area. The controller 

744 must end this test by leaving the communication area cleared and by 

745 transitioning to step 4. The host Mill verify that the entire 
746 

747 comfflunleation area is cleared. (Note: At the start of this test the 

748 host Mill have filled the communication area Mith a non-zero data 

749 pattern.) Ring depth in this test Mill be set to the minimal 

750 value(i.e.. one), reducing potential impact on host memory In event of 

751 failure.Fai lures encountered mIII again be attr'buted to the 

752 controller. 
753 

754 
755 

756 5.7 Test 7 - Maximum Ring Buffer Test 

757 

758 This test is similar to test 5. but it mUI utilize the 

759 max mum alloMable ring depth as specified in UQSSP. This value Is 

760 equal to 128 command and 128 response slots ^' 32 bits per slot. 
761 

762 
763 
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764 5.8 Test 8 Extended Addre&s Test 
765 

766 The fomat of this test is sinilar to test 6, but the prograa 

767 Mill establish the coaaunication area in the highest available acwory 

768 locations. This will alloM testing of the upper six bits of address 

769 logic on the controller board. 

770 

771 NOTE 
772 

773 The ability of this test to comprehensively test the 

774 upper six bits of address is dependent upon memory 

775 size of the run time system. This test Mill be 

776 completely bypassed if the system has only 28K Mords 

777 of memory. 
778 

779 
780 
781 
''82 

783 5.9 Test 9 - Get DUST Status 
784 

785 The Get DUST Status test will request and test the DUST stttus 

786 of each unit under test for tNO specific cases: 
787 

788 1. No command modifiers set 
789 

790 2. Illegal command modifiers set 
791 

792 DUST status will be received from the unit under test after the 

793 program issues the Get DUST Status command av^'lable in OUP. "he 

794 response packet received from the unit will be tested against a known 

795 good mask. If the expected and received bits do not match, excluding 

796 variable bits which will be discounted, an error will be reported. 
797 

798 5.10 Test 10 • Execute Level 2 Microdi agnostics 
799 

800 This test will invoke, via the DUP Execute Local Program 

801 command, the controller resident Level 2 microdi agnostics. These 

802 tests are aimed at establishing full commun ! -^at i on between the 

803 controller and drive, as well as performing functional testing of the 

804 drive. Refer to the Level 2 Microdi agnostic Functional Specification 

805 for a detailed description of these tests. Test progress will be 

806 monitored from the host with the Get OUST Status command. Most errors 

807 encountered in this test will be attributed to the drive. 
808 

809 While the Level 2 M ! crod i agnost i cs are executing. TMSCP 

810 commands will be rejected by the controller. The microdi agnostics, in 

811 conjunction with those portions of operational microcode utilized by 

812 them, will have responsibility for detecting and dealing with drive 

813 errors, including command timeouts and other communication failures of 

814 the drive. The host program will be responsible for monitoring 

815 overall execution of the m i crod i agnost ics. via OUP commands, and 

816 detecting "hung" controller conditions, as well as any spurious 

817 interrupts generated by the subsystem. 
818 

819 It is not possible for the Level 2 microdi agnost ics themselves 

820 to guarantee that a scratch medium is mounted. They are reliant upon 
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821 host level softMara to protect user data fro* accid' tal destruction. 

822 

823 The follOMing sequence of tests mIII be performed twice, thus 

824 ensuring that both channels of the head receive equal testing. To 

825 reduce execution ttae, the ent<re sequence is perforaed first at the 

826 physical 60T end of tape, utilizing head channel 1. The tape m!11 

827 then be positioned to physical EOT end of tape and the entire sequence 

828 repeated, utilizing channel 2. Finally the tape !s rcNOuno and left 

829 at physical BOT. 
830 

831 
832 

833 5.11 Micro Test Descriptions 

834 

835 5.11.1 Test 1 - Simple Write/Read Test - 

836 

837 This test Mill write several blocks of IF' and 2F data to the 

838 tape. The tape will be rewound and the blocks read back. The test 

839 Mill perform a compare operation of the data read back. This test 

840 verifies basic Mrite/read capability. 
841 

842 
843 

844 5.11.2 Test 2 - Streaming Uritc/Read Test - 

845 

846 This test will write approximately 20 feet of tape on a single 

847 track with blocks of various data patterns. The tape will be kept 

848 streaming throughout the write. The tape will then be rewound and all 

849 records are read, again while streaming. Data compare is performed on 

850 all blocks. This test is intended to verify that the drive can write 

851 and read in a normal operational. 
852 

853 
854 

855 5.11.3 Test 3 - Thrashing Urite/Read Test - 

856 

857 This test will again write 40 feet of tape on a single track; 

858 in this test delays will be inserted between the write blocks to force 

859 tape thrashing. After rewinding, the blocks will be read with forced 

860 delavs bcwteen reads. This test is intended to verify that tape 

861 tracking and tensioning are not affected by frequent direction 

862 changes. 
863 

864 
865 

866 5.11.4 Test 4 - Peak Shift Test - 

867 

868 Test 2 is repeated, this time using the worst case MFM peak 

869 shift patterns. This test is intended to verify that the write 

870 precomensat i on logic is functioning properly. 
871 

872 
873 

874 5.11.5 Test 5 - Signal Sag Test - 

875 

876 Ten blocks will be written with random data. The tape m'11 be 

877 rewound, then moved back and forth 10 times. The tape will then be 
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078 oositloocd at logical BOT for the recorded track and read back. This 

679 test is intended to detect self erasure of recorded data. 

880 

881 

882 

883 5.11.6 Test 6 - Overwrite Test 

884 

885 One hundred blocks of data m!11 be written on a single track. 

886 using an "MU' data pattern. (A binary representation of the 1U 
837 pattern is 1110111. although the actual number of ones appearing in a 

888 group is subject to further Morst case testing by the Drive 

889 Engineering group.) The tape Mill then be rewound and reMrittcn. (The 

890 data pattern used for rewrite consists of 50 blocks of worst -case M'^M 

891 followed by 50 blocks of random data.) The purpose of the test is to 

892 guarantee that the drive is capable of overwriting previously recorded 
195 data. 

894 

895 5.11.7 Test 7 - Track Access Test - 

896 

897 Fifty blocks of data will be written on a single track. The 

898 tape will then be rewound, the head stepped to the next track and the 

899 same number of blocks will be written. This process will be repeated 

900 until all the tracks for that head have been written. The test will 

901 then reread the blocks from all data. This test is intended to verify 
90? tape tracking and the ability to successfully record and retrieve data 
903 on adjacent tracks. 

904 
905 
906 

907 5.11.8 Test 8 - Positioning lest - 

908 

909 The primary purpose of this test is simply to perform the 

910 correct positioning of the tape for what is to follow: that is, the 

911 first time through the test sequence, this test will cause the tape to 

912 be positioned at the physical EOT end of tape, thus allowing the 

913 entire test cycle to be repeated for testing the dr've's operation 

914 with channel 2 of the head. Upon second entry to this test, it will 

915 cause the tape to be positioned back at physical BOT. 1he test will 

916 include a coarse watch-dog timer to guard against a 'hung" drive 

917 condition. 
918 

919 
920 

921 5.12 Retry Algorithms 

922 

933 The Level 2 microdi agnostics will make extensive use of 

924 portions of the controller's operations] microcode, including retry 

925 algorithms intended to recover from data errors. Please refer to the 

926 TK50 Microcode Functional Specification for detailed descriptions of 

927 the retry algorithms. 

928 S 
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940 
941 

969 000000 

970 

971 

973 

974 002000 

975 

976 

977 

978 

979 

980 

981 002000 

982 

990 

991 002000 
002000 
002000 
002001 
002002 
002003 
002C04 
0C2005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 
002034 
002034 
002036 
002036 
002040 
002040 
002042 
002042 



.TITLE PRCGRAn HEADER AND TABLES 
.SBTTL PRXRAn HEADER 



002000 



103 
132 
124 
113 
101 
000 
000 
000 

102 

060 

000000 

000170 

047664 

000000 

002202 

000000 

062130 

000000 

000000 

000000 

000000 

002124 

000000 



.ENABL ABS.AHA 
!nl1ST BEX 
BGNnOO 



2000 



THE PROGRAH HEADER IS THE INTERPACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER BGNOU.ERRTBL.BGNRPT 



DNAHE: 



L$REV: 
L$0EP0 
L$UNIT 
L$TIML 
L$HPCP 
L$SPCP 
L$HPTP 
L$SPTP 
L$LA0P 
DSTA: 
L»CO:: 
L»DTYP 
L$APT: 
LJDTP: 
LJPRIO 



HEADER 

' .ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.BYTE 
.BYTE 
.BYTE 

.ASCII 

.ASCII 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.UORO 

.WORD 

.UORD 

.WORD 



CZTKA.B. 0,120. .O.PRIOO 

: DIAGNOSTIC NAME 

/c/ 

/Z/ 
/T/ 
/K/ 
/A/ 

0 

0 

0 



v'^EVISION LEVEL 
0 

NUMBER Of UNITS 
LONGEST TEST TIHE 
POINTER TO H.W. QUES. 
POINTER TO S.W. QUES. 
P7R. TO OEF. H.W. PTABLE 
PTR. TO S.W. PTABLE 
DIAG. END ADDRESS 
RESERVED FOR APT STATS 

! DIAGNOSTIC TYPE 
iAPT EXPANSION 



/B/ 
/O/ 
0 

120. 
DHARD 
0 

DHU 
0 

DLAST 
0 
0 
0 
0 

sPTR. TO DISPATCH TABLE 
L»DISPATCH 

; DIAGNOSTIC RUN PRIORITY 

PR 100 
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PRXRAM riEAOEP 



0020M 




LtENVI : 






if'l.AGS DESCRIBE HOU IT UAS SETUP 


002044 


000000 




.UORD 


0 




002046 




L»EXP1: 






;EXPANSI0N UORD 


002046 


000000 




.UORD 


0 




0020 SO 




LtKAEV: 






:SVC REV AND EDIT « 


002050 


004 




.BYTE 


CtREVISION 


002051 


000 




.BYTE 


CtEDIT 




002052 




L$EP: : 






:DIAG. EVENT FLAGS 


002052 


A A AA AA 

000000 




.UORD 


0 




A A AAV ^ 

002054 


000000 




.UORD 


0 




002056 




LISPC: : 








002056 


000000 




.UORD 


0 




AAAAf A 

002060 




L$DEVP: 






s POINTER TO DEVICE TYPE LIST 


002060 


023412 




.UORD 


L»DvTYP 




AA AAf A 

002062 




L$REPP : 






nvn TA npn nnv a a ap 

;PTR. TO REPORT CODE 


002062 


035002 




.WORD 


L»RPT 




002064 




L>EXP4 : 








A/t'%A£ A 

002064 


^.A AA AA 

000000 




.UORD 


A 

0 








LlcXK5 : 








002066 


000000 




1 lAOA 

.UORD 


A 
0 




002070 




1 A Al IT 

L*AUT: : 






.DTO TA AAA ilkITT AAACT 

irlR. TO HDD UNIT CODE 


002070 


AA AA AA 

000000 




IJAS A 


A 




AA^A^4 

002072 




1 • m IT 
LIDUT : : 






.DTB TA ABAQ 1 IklTT AAAC 

;rIR, TO DROP UNIT CODE 


AA4A^4 

002072 


Ail « « VA 

041130 




1 inoA 

.UORD 


1 ft m 1 




AA AA^^ 

002074 




1 All tu . . 

LILUN: : 






.1 1 lU CAB CT VCTB A TC CTDC TA TTI 1 

;LUN rOR EXERCISERS TO FILL 


AA4A 

00207* 


AAAA AA 
000000 




1 lAn A 

.UORD 


A 




0020 7t 




1 i nccD . 






.OnTUTCO Tn ATAf nCCABTBTTAM 

;rUINIER 10 DIAG. DESCRIPTION 


AA^A^i 

002076 


AAO 4 CA 
002130 




1 lAon 
.UORD 


1 ftnccp 
LIUtbL 




AA^4 A A 

002100 




1 * 1 AAA. 






.PCIUCD£TC CDrTTAI Ai ITAI AAA CTMT 

SutNEKnlt srECIAL AUTOLOAD EnT 


AA A« A A 

002100 


• A4 A1C 

104033 




tn I 


cfti nAn 




AAO« A A 

002102 




Lit Ir : : 






.DATUTCO Tn COOTDI 


002 1Q2 


A'iHACi 

02 3032 




IJAO A 


* ftCOOTQI 

i.»tnK 1 oL 




AAO • AA 

002104 




LllCr: : 






■DTB TA TMTT AAAC 

srIR, 10 INIT CODE 


AA^t ri.il 

002104 


Ail A£ OA 

040620 




1 lAnA 
.UOHD 


1 tTWTT 




AAOf A£. 

002106 




1 * Ar*n 

L >CCr : : 






.DTO Tn n CAiu 1 ID rnnc 
;rln. lU LLtnri-Ur LUUt 


A A ^ 4 A£. 

002106 


Ail 4 4 AA 

041100 




1 lAOA 

. UUKD 


L$ CLEAN 




002110 




LIACr : : 






jPTR. TO AUTO CODE 


AA'^ • « A 

002110 


AA AA AAr* 

000000b 




1 lADA 

. UOnU 


L*AUT0 




AA^ t t O 

002112 




1 t DD T 

L»PRT: : 






;PTR. TO PROTECT TABLE 


AA9 t t O 

002112 


VAil^ 

02 3044 




. UURD 


L$PROT 




vvcl X4 




1 ft TCCT . . 






.•TEST NUMBER 


002114 


000000 




.UORD 


0 




002116 




L$OLY: : 






;DELAY COUNT 


002116 


000000 




.UORD 


0 




002120 




LJHIME: : 






sPTR. TO HIGH MEM 


002120 


000000 




.UORD 


0 
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SEQ 21 



999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 



1007 
1014 
1015 



1016 







, IT IS USED BY 

S ' " 


THE 


002122 




DISPATCH 10. 


002122 


000012 


.WORD 


10 


002124 




L IDISPATCH:: 




002124 


041152 


.WORD 


Tl 


002126 


041650 


.WORD 


T2 


002130 


042432 


.WORD 


T3 


002132 


043120 


.UORO 


T4 


002134 


043714 


.WORD 


T5 


002136 


044362 


.WORD 


T6 


002140 


045202 


.WORD 


T7 


002142 


046C22 


.WORD 


T8 


002144 


046746 


.WORD 


T9 


002146 


047156 


.WORD 


TIO 



002150 
0C2150 
0C2150 



103 



.SBTTL DISPATCH TABLE 



THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 



132 



124 



L$DESC: 



OESCRIPT 



<CZTKAB0 TK50 FUNCTIONAL > 



.ASCIZ /CZTKABO TK50 FUNCTIONAL/ 
.EVEN 
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SEQ 



1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 



1027 
1033 
1034 
1035 
1036 



002200 

002200 000003 

002202 

002202 

00220? 174500 
002204 000260 
002206 000000 
002210 
002210 



.SBTTL DEFAULT HARDWARE P -TABLE 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TAr.ES. 



LIHW:: 
OFPTBL:: 



BGNHW OFPTBL 

.WORD LIOOOO LtHW/2 



L 10000: 



.WORD 174500 

.WORD 260 

.WORD 0 
ENDHW 



iTKIP BASE ADDRESS 
■VECTOR 

•T/MSCP UNIT NUMBER 
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1039 
1040 
1041 
1042 
1043 
1044 
1045 

1046 002210 

002210 000000 

002212 

002212 

1047 
1054 

1055 002212 
002212 

1056 

1057 002212 



.SBTTL SOFTWARE P TABLE 



THE SOFTWARE P TABLE CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



L*SU:: 
SFPTBL : 



LlOOOl: 



BGNSW SFPTBL 

.WORD LlOOOl L$SU/2 



ENOSU 



ENDMOD 
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SOFTWARE P -TABLE 

1060 
1071 
1072 
1100 
1101 

1102 002212 

1103 

1104 

1105 

1106 

1107 

1108 

1109 002212 
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.TITLE GLOBAL AREAS 

.SBTTL GLOBAL EQUATES SECTION 



BGNMOD 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



SEQ 24 



EQUALS 
BIT OIFINITIONS 



100000 


BIT15»» 


100000 

A www 


040000 


BIT14«> 


40000 


020000 


BIT13»" 


20000 


010000 


BIT12"» 


10000 


004000 


BITll-« 


4000 


002000 


BITIO" 


2000 


001000 


BIT09.. 


1000 


000400 


BIT08-- 


400 


000200 


BIT07-- 


200 


000100 


BIT06-= 


100 


000040 


BIT05«- 


40 


000020 


BIT04-» 


20 


000010 


BIT03"' 


10 


000004 


BIT02" 


4 


000002 


BITOl" 


2 


000001 


BITOO-" 


1 


001000 


BIT9" 


BIT09 


000400 


BIT8-- 


BIT08 


000200 


BIT7" 


BIT07 


000100 


BIT6" 


BIT06 


000040 


BIT5-" 


BIT05 


000020 


BIT4" 


BIT04 


000010 


BIT3-- 


BITO: 


000004 


BIT2" 


BIT02 


000002 


BITl" 


BITOl 


000001 


BITO" 


BITOO 



; EVENT FLAG DEFINITIONS 

J EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



000040 
000037 
000036 
000035 
000034 



EF.START" 
EF. RESTART 
EF. CONTINUE' 
EF.NEU" 
EF.PWR" 



32. 
31. 
30. 
29. 
28. 



BIT POSITION IN SECOND STATUS WORD 
(100000) START COMMAND WAS ISSUED 
(040000) RESTART COMMAND WAS ISSUED 
(020000) CONTINUE COMMAND WAS ISSUED 
(010000) A NEW PASS HAS BEEN STARTED 
(004000) A POWER -FAIL/POWER -UP OCCURRED 



PRIORITY LEVEL DEFINITIONS 
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000340 


PRI07-» 


340 


000300 


PRI06" 


300 


000240 


PRI05*« 


240 


000200 


PRI04" 


200 


000140 


PRI03-- 


140 


000100 


PRI02-- 


100 


000040 


PRIOl" 


40 


000000 


PRIOC»« 


0 




i OPERATOR FLAG 


000004 


EVL-- 


4 


000010 


LOT" 


10 


000020 


ADR— 


20 


000040 


IDU" 


40 


000100 


ISR-« 


100 


000200 


UAM" 


200 


000400 


BOE" 


400 


001000 


PNT-" 


1000 


002000 


PRI-- 


2000 


004000 


IXE-- 


4000 


010000 


IBE-- 


10000 


020000 


IER«- 


20000 


040000 


LOE" 


40000 


100000 


HOE-- 


100000 
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GLOeAL EQUATES SECTION 

1114 i :***********************•**********************>**************** 

1115 

1116 i 

1117 ;LUN.BLOCK OFFSETS 

1118 i THESE LITERALS ARE USED AS WORD OFFSETS INTO THE LUNBLK. UHICS 

1119 i IS POINTED TO THROUGHOUT THE PROGRAM BY R4. 

1120 : 
1121 

1122 i 
1123 

1124 000000 TKIP " 0 jTKIP REGISTER ADDRESS 

1125 000002 TKSA 2 sTKSA REGISTER ADDRESS 

1126 000004 TKVEC " 4 ;TK INTERRUPT VECTOR 

1127 000006 HSCPUN «- 6 sT/MSCP UNIT NUMBER 

li;'8 000010 TKIPSV »• 10 {SAVE LOCATION FOR IP CONTENTS 

11..'9 000012 TKSASV 12 sSAVE LOCATION FOR SA CONTENTS 

11)0 000014 LUNFLG -- 14 :BIT-SPECIFIC MEANINGS AS DEFINED BELOU 

13 /J 

1132 

1133 :t*************************************************************** 

1134 i,*************************************************************** 

1135 : 

1136 ;LUNFLG 

1137 s THIS WORD IN LIMBLK IS USED TO CONVEY VARIOUS INFORMATION 

1138 ; IN A BIT -SPECIFIC MANNER. BITS USED BY THE PROGRAM ARE 

1139 : DEFINED AS FOLLOUS. 

1140 i 

1141 ;;*************************************************************** 

1142 ;;*************************************************************** 
1143 

1144 000001 DRPFLG »- BITO ;-0 UUT AVAILABLE FOR TEST 

1145 :-l UUT HAS BEEN DROPPED 

1146 000002 INTFLG " BITl ;-l EXPECTED INTERRUPT OCCURRED 
1147 

1148 000004 BRFLAG BIT2 j-l INTERRUPT PRIORITY TEST 

1149 

1150 000010 DUPFL6 BITS :-l DUP COMMAND 

1151 

1152 000020 ABTFLG BIT4 i-1 ABORT LOCAL PROGRAM 

1153 

1154 000040 CNTRLC " BITS i-1 RETURN TO DRS 

1155 



GLOeAi. AREAS HACRO T05.02 
GLOeAt. EQUATES SECTION 



1157 




1158 




1159 




1160 




1161 




1162 




1163 




1164 




1165 




1166 




1167 




1168 




1169 




1170 




1171 




1172 


004000 


1173 


010000 


1174 


020000 


1175 


040000 


1176 




1177 


100000 


1178 


002000 


1179 


001000 


1180 


A A A A A A 

000400 


1181 


000200 


1182 


000100 


1183 




1184 




1185 




1186 


4 A A A A A 

100000 


1187 


A it A A A A 

040000 


1188 


A A /* A A 

000002 


1189 


A A A/N A 4 

000001 




OvOOOl 


1191 




1192 




1193 




1194 


000200 


1195 
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J ] ****************** 



SEO 27 



UQ PORT EQUATES 

THIS SECTION DEFINES THOSE LITERALS USED 
BY THE DIAGNOSTIC IN THE UQ-PORT PROTOCOL. 
IN GENERAL THEY HAVE BEEN BORNEO Br USING 
THE TWO LETTER MNEMONIC DEFINED IN UQSSP. 
PRECEDED BY "B." INDICATING THEY ARE BITS. 





DTT C 




B.Sl 


BITll 


.STEP 1 


B.S2 


BIT12 


STEP 2 


B.S3 


BIT13 


STEP 3 


B.S4 


Biri4 


STEP 4 


B.ER 


BITi: 


ERROR INDICATION 


B.NV 


BITIO 


•0 VECTOR IS HOST SETTABLE 


B.QB 


BIT9 


•1 SUPPORTS 22 BIT HOST BUS 


B.OI 


BITS 


•1 SUPPORTS ENHANCED DIAGNOSTICS 


B.OD 


BIT7 


■1 SUPPORTS ODD BUFFER ADDRESSES 


B.MP 


BIT6 


*1 SUPPORTS ADDRESS MAPPING 


:URITE-0NLY 


BITS 




B.PP 


BIT15 


PERFORM PURGE AND POLL TESTS 


B.UR 


BIT14 


ENTER DIAGNOSTIC URAP MODE 


B.LF 


BITl 


LAST FAIL REQUEST 


B.PI 


BITO 


ENABLE ADAPTER PURGE INTERRUPTS 


B.GO 


BITO 


GO BIT - START RUNNING 


jREAD/URITE 


BITS 




B.IE 


BIT7 {STEP X-TION INTERRUPT ENABLE 
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1197 
119a 
1199 
1200 
1201 
1202 
1205 
1204 

1205 000004 

1206 177560 

1207 177562 
1200 
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SEQ 20 



.-GENERAL PURPOSE EQUATES 



VEC4 

RCS9 
RBUF 



4 

177560 
177562 



VECTOR rouR - NXM TIMEOUTS. ETC. 

TERMINAL RECEIVE CONTROL/STATUS REGISTER ADDRESS 

TERMINAL RECEIVE BUFFER ADDRESS 
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SEQ 29 













12' I 










1212 










1213 






lANAGEHENT EQUATES 


1214 




■ 






1215 










1216 










1217 










1218 


177572 


^t1USR0 


•« 17757? 


• <iTATII<; RFC O 


1219 


177574 


HHUSRl 


«■ 177574 




1220 


177576 


MHUSR2 


** 177576 




1221 


172516 


fmUSRS 


«> 172516 


• <tHniJi n nNi y rp pbpcpmt niu btt ron-c 


1222 








1223 


172340 


KPARO 


" 172340 




1224 


172342 


KPARl 


" 172342 




1225 


172344 


KPAR2 


«- 172344 




1226 


172346 


KPAR3 


" 172346 




1227 


172350 


KPAR4 


172350 




1228 


172352 


KPAR5 


»" 172352 




1229 


172354 


KPAR6 


172354 




1230 


172356 


KPAR7 


172356 


J ALWAYS FOR I/O PAGE 


1231 










1232 


172300 


KPORO 


*■ 172300 


: KERNEL tlODE PAGE DESCRIPTOR REG 0 


1233 


172302 


KPORl 


-» 172302 




1234 


172304 


KP0R2 


•« 172304 




1235 


172306 


KPDR3 


172306 




1236 


172310 


KP0R4 


172310 




1237 


172312 


KP0R5 


172312 




1238 


172314 


KP0R6 


172314 




1239 

• ;•£ 


172316 


KPDR7 


172316 




1^41 


000001 


mON 


BITO 


{ENABLE MMU - MMUSRO 


1242 


000020 


nn220N 


BIT4 


: ENABLE 22 BIT HHU - MMUSR3 


1243 











GLOeAL AREAS MACRO t05.02 
GL06AL EQUATES SECTION 

1245 
1246 
1247 
1248 
1249 
1250 
i;>51 
1^52 

1253 000004 

1254 000011 

1255 000001 

1256 000003 

1257 000005 

1258 000006 

1259 000200 
1260 

1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 

1270 000000 

1271 000004 

1272 000010 

1273 000011 

1274 000012 

1275 000012 

1276 000014 

1277 000020 
1278 

1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 

1288 000014 

1289 000015 

1290 000016 

1291 000017 

1292 000020 

1293 000022 

1294 000024 
1295 
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SEQ 30 



COHMAND PACKET OPCODES 

: ********** ************ ******** ********************************* 



OP. sec 

QP.ONL 
OP.GDS 
0P.«^LP 
OP.REC 
OP.ABT 
OP. END 



04 

11 
01 
03 
05 
06 
200 



SET CONTROLLER CHARACTERISTICS OPCOPE 

ONLINE OPCODE 

GET OUST STATUS OPCODE 

EXECUTE LOCAL PROGRAM OPCODE 

RECEIVE DATA OPCODE 

ABORT PROGRAM OPCODE 

END MESSAGE FLAG OPCODE 



: *************************************************************** 
: *************************************************************** 

GENERIC COMMAND PACKET OFFSETS 

i *************************************************************** 
,**************************************************************« 



P.CRF 
P. UNIT 
P.OPCD 
P.FLGS 
P. MOD 
P.STS 
P.BCNT 
P. BUFF 



0 
4 

10 
11 
12 
12 
14 
20 



COMMAND REFERENCE NUMBER 

UNIT NUMBER 

OPCODE 

END MESSAGE FLAGS 
MODIFIERS / STATUS 
MODIFIERS / STATUS 
BYTE COUNT 
BUFFER DESCRIPTOR 



;*************************************************************** 
; *************************************************************** 

GET DUST STATUS END PACKET OFFSETS 

; 

• {A************************************************************** 
; ;*************************************************************** 



P.EXTl 

P.EXT2 
P.EXT3 
DUSTFL 
P.INDl 
P.IND2 
TIMOUT 



14 

15 
16 
17 
20 
22 
24 



1ST BYTE 
2N0 BYTE 
3RD BYTE 
FLAGS 
1ST WORD 
2N0 WORD 



OF PROGRAM EXTENSION 
OF PROGRAM EXTENSION 
OF PROGRAM EXTENSION 

OF PROGRESS INDICATOR 
OF PROGRESS INDICATOR 



TIMEOUT VALUE 
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GLOBAL EQUATES SECTION 



SEQ 31 



1297 

1298 

1299 

1300 

1301 

1302 

130i 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1S25 

1326 

1327 



100000 
004000 
000001 



100000 
040000 
000200 
000010 
000000 
000000 
000004 
000104 



J IKS* BIT DEFINITIONS 
» 

: : ********************************************************** ***** 
:•**********************************************«***«, 4, 



ERR 

SI 

GO 



100000 
004000 
000001 



: ERROR 
jSTEP 1 
sGO 



: *************************************************************** 
: *************************************************************** 

U/Q PORT LITERALS 



:****** 

;****** 



OWN 

FLAG 

IMM 

TF.BLK 
HSTIMO 
MSCPVR 
RNGSTP 
RSPSTP 



******************************************************** 
******************************************************** 



100000 

040000 

000200 

10 

0 

0 

4. 

68. 



DESCRIPTOR OWNERSHIP BIT 
DESCRIPTOR INTERUPT FLAG BIT 
IMMEDIATE CGMHANO FLAG 
TAPE FORMAT 
HOST TIMEOUT VALUE 
MSCP VERSION NUMBER 
DESCRIPTOR RING STEP 
RESPONCE BUFFER STEP 
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GLOBAL EQUATES SECTION 



SEQ 32 



1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1358 

1339 

1340 

1341 

1342 

1343 

1344 



000002 
177777 
177776 
177774 
000005 
000011 
000000 



sTMSCP DRIVER BUFFER OFFSETS 

i 

: ******************************************* 



HIADOR 

CONIO 

CRD 

nSGLEN 
TXFER 
DRVER 
CNTER 



2. 
-1. 

2. 
-4. 

5. 

9. 

0. 



DESCRIPTOR ADDRESS OFFSET 

COMMAND/RESPONSE CONNECTION TYPE I.D. 

COMMAND/RESPONSE CREDIT LIMIT OFFSET 

COMMAND/RESPONSE MESSAGE LENGTH 

ERROR FORMAT FOR "TAPE TRANSFER" ERROR LOG 

ERROR FORMAT FOR "DRIVE ERROR" ERROR LOG 

ERROR FORMAT FOR "CONTROLLER ERROR" ERROR LOG 



GLOeAL AREAS NACRO Y05.02 Thursday 25-Jul-K 09:27 Page 21 SEQ 33 

GLOBAL EQUATES SECTION 

1346 ;:**************************************************«*****•••**•• 

1347 :;**************•*******•****•***••*•*•*•**•**•************•**••* 

1348 

1349 : OFFSET VALUES INTO LEVEL 2 HICROOIAGNOSTIC RECEIVE DATA BUFFER 

1350 : 

1351 li *************************************************************** 

1352 ;;*•••••••••••••••••••••••**•••••••.••••••••••••••••**•••••••**•* 

1353 



1354 


000002 


L2STA 


2 


OFFSET 


OF 


PROGRAN STATUS 


1355 


000004 


L20RV -« 


4 


OFFSET 


OF 


DRIVE STATUS 


1356 


000006 


L2TST 


6 


OFFSET 


OF 


TEST NUMBER 


1357 


000007 


L2TRK ■ ■ 


7 , 


OFFSET 


OF 


TRACK NUMBER 


1358 


000010 


Lzcno ■ « 


10 


OFFSET 


OF 


COHHAND IN ERROR 


1359 


000011 


L2RSP • » 


11 


OFFSET 


OF 


RESPONSE FLAG 


1360 


000012 


L2UNT '* 


12 


urFSET 


OF 


UNIT FLAGS 


1361 


000014 


■ Am in ■ 

L2BUR1 ■« 


14 


OFFSET 


OF 


m aal>a ■ ia wv^&i Mil A 

BLOCKS WRITTEN CH. 1 


1362 


000020 


1 Am inA 

L2BUR2 ** 


20 


OFFSET 


OF 


BLOCKS WRITTEN CH. 2 


1363 


000024 


L2BRD1 


24 


OFFSET 


OF 


BLOCKS READ CH. 1 


1364 


A A A A V A 

000030 


L2BRD2 " ■ 


VA 

30 


OFFSET 


AP 

OF 


BIAAL/^ nPAA alj a 

BLOCKS READ CH. 2 


1365 


AA AA V 4 

000034 


L2SUR1 


34 


OFFSET 


OF 


SOFT WRITE ERRORS CH. 1 


13oo 


A AAA T ^ 

000036 


LcamHZ 


36 


ACCCPT 


OF 


SOFT WRITE ERRORS CH. 2 


1*67 


AA AA Jl A 

000040 


L2C.LC1 


il A 

40 


OFFSET 


OF 


ECC CORRECTED ERRORS CH. 1 


1368 


AAA Ail 

000042 


L2cC(.2 " 


42 


OFFSET 


OF 


1? A^ A AB OCATFA PAAAAA ALI A 

ECC CORRECTED ERRORS CH. 2 


4 V£ A 

1369 


000044 






ACT CCT 

QrFScT 


AC 

OF 


CRC ERRORS ON r. u BLOCK CH. 1 


1370 


AA AA Ji ^ 

OOOO'ic 


L2(.n(.2 »■ 


il £ 

46 


OFFSET 


AC 

OF 


AAA PBAAnf* ALI "A DiAAL/ Ai_i A 

CRC ERRORS ON c.C BLOCK CH. 2 


4 4 

1371 


OOvO^O 


1 ODCD1 


DO 


UrFSc 1 


nc 
OF 


Of AA OCOAtTTTAk * ALI 4 

HtfKU RErOSITION^ CH, 1 


1372 


000052 


L2ntr2 


DC 


nccccT 
OFF bt 1 


nc 
OF 


Of AA DCOrttTTTAkJC ALJ A 

RcAu RErOSITIOMS CM. 2 


■ 373 


AAA 4 

000134 


1 ^Cl CM a a 

L2fcLrn 


1 Til 

134 


ACC CCT 

OFF St 1 


AC 

OF 


pnnon i r\r^ pbaab a abm a t 

ERROR LOG ERROR FORMAT 




AAA1 TC 


1 OCI CI mm 


lie 

133 


nccccT 
OFF St I 


AC 

OF 


cRROR LOG FLAGS 


13f b 


AA ^ . ^£ 


1 ^ci c\y 


136 


nccccT 
OFFSE 1 


AC 

OF 


ERROR LUG EVENT CODE 


137o 


AAA 4 Jl il 

000144 


1 ^Cl Dl 


4 il it 

144 


ACC CCT 

OFFSET 


AC 

OF 


ERROR LOG RETRY LEVEL 


1377 


00014D 


1 OCI DT w 


14 D 


ACC ecT 

OFFSET 


AC 

OF 


ERROR LOG NUnBER OF RETRIES 


1378 


AAA1 Jl£ 

000140 


1 ^Cl 01 « * 


146 


ACC CCT 

(OFFSET 


AC 

OF 


f DO AA 1 Ar* BACTfTALI Al— . 

ERROR LOG POSIiION Clow order) 


1379 


0001 30 


1 OCI DO 


130 


nccccT 
OFF SET 


AC 

OF 


ERROR LOG POSITION Chign order) 


1 30v 


AAAi C« 




1 




np 

U" 




1381 


000155 


L2EL0E 


155 


OFFSET 


OF 


ERROR LOG DRIVE ERROR CODE 


1382 


000156 


L2ELDF " 


156 


OFFSET 


OF 


ERROR LOG DRIVE FLAGS 


1383 


000157 


L2ELTN 


157 


[OFFSET 


OF 


ERROR LOG TRACK NUMBER 


1384 


000160 


L2ELPB -« 


160 


[OFFSET 


OF 


ERROR LOG PHYSICAL BLOCK NUMBER 


1385 


000162 


L2ELLB •« 


162 


[OFFSET 


OF 


ERROR LOG LOGICAL BLOCK NUMBER 


1386 


000163 


L2ELT0 " 


163 


[OFFSET 


OF 


ERROR LOG LSB OF TAPE LENGTH COUNT 


1387 


000164 


L2ELT1 •» 


164 


.OFFSET 


OF 


ERROR LOG BYTE 1 OF TAPE LENGTH COUNT 


1388 


000165 


L2ELT2 •■ 


165 


[OFFSET 


OF 


ERROR LOG MSB OF TAPE LENGTH COUNT 


1389 


000166 


L2EL0S " 


166 


OFFSET 


OF 


ERROR LOG DRIVE STATE 


1390 


000170 


L2ELRU «« 


170 


OFFSET 


OF 


ERROR LOG READ/WRITE STA.E 


1391 


000172 


L2EL0F 


172 


OFFSET 


OF 


ERROR LOG OPERATION FLAGS 


1392 


000140 


L2ELEC " 


140 


OFFSET 


OF 


ERROR LOG CONTROLLER ERROR CODE 



GLOeAL AREAS MACRO Y05.02 
GLOeAL DATA SECTION 



1394 
1395 
1396 
1397 
1398 
1199 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 

i4oa 

1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 

1420 002212 
1421 
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.S8TTL GLOBAL DATA SECTION 



i ****** »******************************************************^* 
********************************************************* 

THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
IN nORE THAN ONE TEST. 



,*************************************************************** 



;*************************************************************** 
i*************************************************************** 

LUNBLK 

THIS BLOCK OF MEMORY IS USED TO STORE VARIABLE INFORMATION 
PERTAINING TO THE CURRENT LOGICAL UNIT UNDER TEST. LUNBLK 
IS POINTED TO THROUGHOUT THE PROGRAM BY R4 AND INDIVIDUAL 
LOCATIONS ARE ACCESSED VIA LITERALS DEFINED ABOVE. 

t ******** '■************************************************k^*** 
;*************************************************************** 



SEQ 34 



000000 000000 000000 LUNBLK: 



.MORD 0,0,0.0,0,0.0,0,0.0,0.0,0.0.0 



1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 

1436 002250 
1437 

1438 002260 
1439 



;**************** *********************************************** 

jUQ-PORT NECESSITIES 

THESE TABLES ARE SET UP BY VARIOUS 
TESTS UITH VALUES TO BE WRITTEN TO 
THE PORT, AND COMPARISON VALUES TO 
CHECK THE PORT AFTER EACH STEP TRAN- 
SITION OCCURS. RESPECTIVELY. 

; *****************************************************i.********^ 
• *************************************************^*^^^^^^ttt^t^ 



STPTBL:: 
CMPTBL : : 



.BLKU 4 {VALUES WRITTEN TO THE PORT 

.BLKU 4 (COMPARISON VALUES 



GLOBAL AREAS nACRO Y05.02 
GLOBAL 9ATA SECTION 

1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 

1451 002270 000000 

1452 002272 000000 

1453 002274 000000 
1454 

1455 002276 000000 

1456 002300 000000 

1457 002302 000000 
1458 

1459 

1460 00230/; 000000 

1461 002506 000000 

1462 J02310 000000 

1463 002312 000000 
14e4 002314 000000 

1465 0C2316 000000 

1466 002320 000000 

1467 002322 000000 
1460 002324 000000 

1469 002326 000000 

1470 002330 000000 

1471 002332 000000 
147? 002334 000000 
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SEQ 35 



sPROGRAn CONTROL VARIABLES 

THESE GLOBAL VARIABLES ARE GENERALLY USED TO CONTROL THE 
i OVERALL EXECUTION OF THE DIAGNOSTIC. 



PASCNT 
ITRCNT 
KTFLAG 

TRP4FG 
PAROFF 
CHHERR 



CMTBLG 
CMARLG 
FRUIS: 
LOGUNT 
SAEXP: 
INISTP 
STEPST 
URDATA 
INNER: 
OUTER: 
TOUT:: 
TEMP:: 
FLAGS: 



.WORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 

.UORD 0 



.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.WORD 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



CUMULATIVE PROGRAM PASS COUNTER 

LOADED BY EACH TEST TO SPECIFY • OF ITERATIONS 

-0 MEMORY MANAGEMENT NOT AVAILABLE 

-1 MEMORY MANAGEMENT IS AVAILABLE 

«1 TRAP TO VECTOR OCCURRED 

USED IN TEST 7 TO STEP THROUGH Ut>PER MEMORY 
•0 NO ERROR IN COMMUNICATION AREA 
■1 ERROR UITHIN COMMUNICATION AREA 
--1 ERROR BEYOND BOUNDS OF COMM AREA 
« OF CONTIGUOUS UORDS IN ERROR IN COMM AREA 
LENGTH OF COMM AREA FOR T^ST N 
POINTER TO FAULTY FRU ASCII FOR PRINTOUT 
LOGICAL UNIT • OF CURRENT UUT 
LOADED UITH EXPECTED SA FOR ERROR CHECKING 
{CURRENT STEP Of- INIT SEQUENCE 
SUCCESS/FAIL STATUS FROM STEP SUBROUTINES 
LOADED UITH DATA FRO URAP MODE TEST 
COUNTER FOR PDELAY ROUTINE 
OTHER COUNTER FOR PDELAY 
TIMEOUT INDICATOR FOR PDELAY 
TEMPORARY STORAGE LOCATION 
WORK LOCATION FOR SUPERVISOR FLAGS 



GLOeAL AREAS lACRO Y05.02 
GLOeAL DATA SECTION 



1474 
1475 
1476 
1477 
1478 
1479 
1400 
1481 
1482 
1483 
1484 
1485 
1486 
1487 

1488 002336 

1489 002342 

1490 002346 

1491 002352 

1492 002356 

1493 002362 

1494 'y»?366 

1495 002372 

1496 002076 
1497 

1498 
1499 
1500 
1501 
1502 
1503 
1504 

1505 002402 

1506 002406 

1507 002412 

1508 002416 

1509 002422 

1510 002426 

1511 002432 

1512 002456 

1513 002442 

1514 002446 
1515 

Vilb 
1517 
1518 
1519 
1520 
1521 
1522 

1523 002452 

1524 002456 

1525 002462 

1526 002466 
1527 

1528 
1529 
1530 



000040 
000000 
000000 
000004 
000000 
000000 
000000 
000000 
000000 



000044 
000000 
000000 
000011 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000020 000000 

000000 000000 

000000 000000 

000001 000000 
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SEQ 36 



TflSCP/DUP COmAND PACKETS 
************************* 



TMSCP SET CONTROLLER CHARACTERISTICS COMMAND PACKET 



.UORO 


32. .0 


.WORD 


0.0 


.UORD 


0.0 


.UORD 


OP. sec, 0 


.WORD 


0.0 


.WORD 


0.0 


.UORO 


0,0 


.WORD 


0.0 


.WORD 


0.0 



i STARS 

ItMSCP ONLINE COMMAND PACKET 
i 



.WORD 


36. .0 


ONLINE: .WORD 


0.0 


.WORD 


0,0 


.WORD 


0P.0"L,O 


.WORD 


0.0 


.UORD 


0.0 


.WORD 


0.0 


.UORD 


0,0 


.UORD 


0.0 


.UORD 


0,0 



: STARS 

ioUP GET OUST STATUS COMMAND PACKET 

; ; *************************************************************** 

.WORD 16.. 0 

GDUST: .UORO 0,0 

.UORO 0,0 

.UORD OP.GDS.O 



: STARS 
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GLOBAL DATA SECTION 



SEQ 37 



1531 
1532 
1533 
1534 

1535 002472 

1536 002476 

1537 002502 

1538 002506 

1539 002512 
1540 

1541 
1542 
1543 
1544 
1545 
1546 
1547 

1548 002520 

1549 002524 

1550 002530 

1551 002534 

1552 002540 

1553 002544 
1554 

1555 
1556 
1557 
1550 
1559 
1560 
1561 

1562 002550 

1563 002554 

1564 002560 

1565 002564 
1566 



000022 000000 

000000 000000 

000000 000000 

000003 000000 

104 111 



000024 
000000 
000000 
000005 
000226 
060000 



000000 
000000 
000000 
000000 
000000 
000000 



000014 000000 

000000 000000 

000000 000000 

000006 000000 



101 



OUP EXECUTE LOCAL PROGRAn CWinANO PACKET 



XLOCPR: 



.WORD 
.WORD 
.WORD 
.WORD 
.ASCII 



18. .0 

0.0 

0.0 

OP.ELP.O 
/DIAGL2/ 



STARS 

DUP RECEIVE DATA COMMAND PACKET 



RCVDAT : 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



20. .0 

0,0 

0.0 

OP.REC.O 
150. .0 
ROBUF.O 



STARS 

DUP ABORT COMMAND PACKET 

I • *************************************************************** 



ABORT: 



.WORD 
.WORD 
.WORD 
.UORO 



12. .0 

0.0 

0.0 

OP.ABT.O 



CLOeAL AREAS HACRO Y05.02 
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SEQ 



1560 
1569 
1570 
1571 
1572 
1573 
1574 
1575 

1576 002570 

1577 002574 
1578 

1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 

1588 003000 

1589 003004 

1590 003004 

1591 003014 

1592 0C3024 
1593 

1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 

1603 003024 

1604 003026 

1605 003030 

1606 003032 

1607 003034 
1600 003036 

1609 023036 

1610 023040 

1611 023042 
1612 



000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 



CLASS DRIVER BUFFERS 



J" 



RESPBF: 
RSPBUF: 



.BLKU 2. iTOP 4 LOCATIONS OF RESPONSE BUFFER 

.BLKU 66. :DRIVER RESPONSE BUFFER 



U/Q PORT DESCRIPTOR RINGS 



DSCRNS 
RSPEND 
RSPRNG 

CMDRNG 
DSCEND 



.BLKU 

.BLKU 
.BLKU 



4. 
4. 



DESCRIPTOR RING 
END OF RESPONSE BUFFER 
RESPONSE DESCRIPTOR RING 
COnHAND DESCRIPTOR RING 
END OF DESCRIPTOR RING 



: *************************************************************** 

CLASS AND PORT DRIVER VARIABLES 

: *************************************************************** 
:*************************************************************** 



CNTHI: 
CNTFLG 
PCKSIZ 
CMDREF 
CMDCNT 
URBUF : 
CMDSAV 
RSPSAV 
CURCND 



.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BLKU 
.UORD 
.UORD 
.UORD 



0 

0 
0 
0 
0 

4096. 
0 
0 
0 



VALUE OF THE HIGH TIMEOUT 

CONTROLLER FLAGS 

PACKET SIZE IN BYTES 

COMMAND REFERENCE NUMBER 

COMMAND COUNT 

URITE BUFFER 

COMMAND DESCRIPTOR SAVE 

RESPONSE DESCRIPTOR SAVE 

POINTER TO CURRENT COMMAND ASCII 



GLOe/U. AREAS MACRO Y05.02 
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SEQ S9 



1614 
1615 
1616 
1617 
1618 
1619 
1620 
1624 

1625 023044 
023044 

1626 023044 

1627 023046 

1628 023050 
1629 

1630 0230S2 
1631 



PROTECTION TABLE 



BGNPROT 
LtPROT:: 



000000 

177777 
177777 



.HORD 0 
.UORD -1 
.WORD -1 



ENDPROT 



Global areas >iAC«to yo5.<» 

GIOSAL DATA SECTION 

1633 0230S2 

1634 023052 

1635 
1636 
1637 

1638 023052 

1639 023052 
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STARS 



SEQ 40 



STARS 



LEVEL 2 mCRODIAGNOSTIC ERROR TABLE 
STARS 



STARS 



1640 










1641 023052 




ERRTBL 






023052 




L*ERRTBL:: 






023052 


000000 


ERRTYP:: 


.UORD 0 




023054 


000000 


ERRN6R:: 


.WORD 0 




023056 


000000 


ERRMSG: : 


.UORD 0 




023060 


000000 


ERRBLK : : 


.WORD 0 




1642 










1643 023062 




L2ET8L:: 




{START OF TMSCP COMMAND 


1644 








1645 023062 


000001 


.WORD 


1. 


: INVALID COMMAND 


1646 023064 


000145 


.WORD 


101. 




1647 023066 


030763 


.UORD 


L2ER1 




1648 023070 


033544 


.WORD 


L2DUMP 




1649 










1650 023072 


000001 


.UORD 


1. 


: COMMAND ABORTED 


1651 023074 


000146 


.WORD 


102. 


1652 023076 


031003 


.WORD 


L2ER2 




1653 023100 


033544 


.UORD 


L2DUMP 




1654 










1655 023102 


000001 


.WORD 


1. 


: UNIT -OFFLINE 


1656 023104 


000147 


.WORD 


103. 


1657 023106 


031023 


.WORD 


L2ER3 




1658 023110 


033544 


.WORD 


L2DUMP 




1659 










1660 023112 


000001 


.WORD 


1. 


! UNIT -AVAILABLE 


1661 023114 


000150 


.WORD 


104. 


1662 023116 


031040 


.WORD 


L2ER4 




1663 023120 


033544 


.WORD 


L2DUMP 




1664 










1665 023122 


000001 


.WORD 


1. 


;INVALID STATUS 


1666 023124 


000151 


.WORD 


105. 




1667 023126 


031057 


.UORD 


L2ER5 




1668 023130 


033544 


.WORD 


L2DUMP 




1669 










1670 023132 


000001 


.WORD 


1. 


;URITE PROTECTED 


1671 023134 


000152 


.WORD 


106. 


1672 023136 


031107 


.WORD 


L2ER6 




1673 023140 


033544 


.WORD 


L2DUMP 




1674 










1675 023142 


COOOOl 


.WORD 


1. 


i COMPARE ERROR 


16''6 023144 


000153 


.WORD 


107. 




1677 025146 


031127 


.UORD 


L2ER7 




1678 023150 


033544 


.WORD 


L20UMP 




1679 










1690 023152 


000001 


.WORD 


1. 


sDATA ERROR 
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GLOBAL DATA SCCTZON 



16ai 023154 


000154 


.UORD 


108. 


1682 023156 


031145 


.UORD 


L2ER8 


1683 023160 


033544 


.UORO 


L20UMP 


1684 








1685 023162 


000001 


.UORD 


1. 


1686 023164 


000155 


.WORD 


109. 


1687 023166 


031160 


.UORO 


L2ER9 


1688 023170 


033544 


.WORD 


L2DUt1P 


1689 








1690 023172 


000001 


.UORO 


1. 


1691 023174 


000156 


.UORO 


110. 


1692 023176 


031211 


.UORD 


L2ER10 


1*93 023200 


033544 


.UORD 


L2DUMP 


1694 








1695 0P3282 


OOOOCl 


.UORO 


1. 


1696 023204 


000157 


.UORD 


111. 


1697 023206 


031232 


.UORD 


L2ER11 


1698 023210 


033544 


.UORD 


L20UHP 


1699 








1700 0<;3212 


000001 


.UORt) 


1. 


1701 023214 


000160 


.UORO 


112. 


1702 023216 


031246 


.UORD 


L2ER12 


1703 023220 


033544 


.UORD 


L20UMP 


1704 








1705 023222 


000001 


.UORO 


1. 


1706 023224 


000161 


.UORO 


113. 


1707 023226 


031266 


.UORO 


L2ER13 


1708 023230 


033544 


.UORO 


L2DUMP 


1709 








1710 023232 


000001 


.UORD 


1. 


1711 023234 


000162 


.UORO 


114. 


1712 023236 


031306 


.UORD 


L2ER14 


1713 023240 


033544 


.UORD 


L20UMP 


1714 








1715 023242 


000001 


.UORD 


1. 


1716 023244 


00016? 


.UORD 


115. 


1717 023246 


031354 


.UORD 


L2ER15 


171S 023250 


053544 


.UORD 


L2DUMP 


1719 








1720 023252 


000001 


.UORD 


1. 


1721 023254 


000164 


.UORD 


116. 


1722 023256 


031564 


.UORO 


L2ER16 


1723 023260 


033544 


.UORO 


L2DUMP 


1724 








1725 023262 


000001 


.UORD 


1. 


1726 023264 


000165 


.UORD 


117. 


1727 023266 


051412 


.UORD 


L2ER17 


1728 023270 


055544 


.UORD 


L20UMP 


1729 








1730 023272 


000001 


.UORD 


1. 


1731 023274 


000166 


.UORO 


118. 


1732 023276 


051430 


.UORD 


L2ER18 


1733 023300 


033544 


.UORD 


L20UnP 


1734 








1735 023302 


000001 


.UORO 


1. 


1736 023504 


000167 


.UORD 


119. 


PS-* 023306 


031451 


.UORO 


L2ER19 



:HOST BUFFER ACCESS ERROR 



: CONTROLLER ERROR 



: DRIVE ERROR 



:FORHATTER ERROR 



sBOT ENCOUNTERED 



;TAPE MARK ENCOUNTERED 



;mALID STATUS 



;RECORD DATA TRUNCATED 



; POSITION LOST 



J SERIOUS EXCEPTION 



:LEOT DETECTED 



GLOBAL AREA$ 1AC«)0 r05.02 
GLOBAL DATA SECTION 
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1738 023310 
1739 

1''40 023312 
1741 

1742 023312 

1743 023314 

1744 023316 

1745 023320 
1746 

1747 023322 

1748 023324 

1749 023326 

1750 023330 
1751 

1752 023332 

1753 023334 

1754 023336 

1755 023340 
1756 

1757 023342 

1758 023344 

1759 023346 

1760 023350 
1761 

1762 023352 

1763 023354 

1764 023356 

1765 023360 
1766 

1767 023362 

1768 023364 

1769 023366 

1770 023370 
1771 

1772 023372 

1773 023374 

1774 023376 

1775 023400 
1776 

1777 023402 

1778 023404 

1779 023406 

1780 023410 



033544 



OOOOOl 
OOOf ^0 
031467 
033544 

OOOOCl 
000171 
03l:>51 
033544 

OOOOOl 
000172 
031631 
033544 

OOOOOl 
000173 
031720 
033544 

OOOOOl 
000174 
032010 
033544 

OOOOOl 
000175 
032076 
033544 

OOOOOl 
000176 
032167 
033544 

OOOOOl 
000177 
032261 
033544 



.MORO L20U^«> 



L2t1SG: 
OCERR: 

CNTERR: 

INVSTA: 

BPNERR: 

RSPADO: 

HBFADD: 

UNERLG: 

RSPTO: 



.UORS 
.WORD 
.UORD 
.WORD 

.UORD 
.UORD 
.UORD 
.UORD 

.UORD 
.UORD 
.UORD 
.UORD 

.UORD 
.UORD 
.UORD 
.UORD 

.UORD 
.UORO 
.UORD 
.UORO 

.UORO 
.UORO 
.UORO 
.UORD 

.UORD 
.UORD 
.UORD 
.UORD 

.UORD 
.UORD 
.UORD 
.UORO 



1. 

120. 
L2ER20 

L2Dunp 

1. 

121. 

L2ER21 

L20Uf1P 

1. 

122. 

L2eR22 

L2DUMP 

1. 
123 

L2ER23 

L2Dunp 

1. 

124. 

L2ER24 

L2DUMP 

1. 

125. 

L2ER25 

L2DUnP 

1. 

126. 

L2ER26 

L2DUMP 

1. 

127. 

L2ER27 

L20UnP 



SEQ 42 

jSTART OF HICRODIAGNOSTIC DETECTED ERROR HESSAGES 
iOATA COMPARE ERROR 

! CONTROLLER ERROR 

: INVALID STATUS 

:BAD PATTERN NUMBER 

{RESPONSE ADDRESS ERROR 

jHOST BUFFER ADDRESS ERROR 

:UNKNOUN ERROR LOG RECEIVED 

s RESPONSE TIMEOUT ERROR 



GLOeAL AREAS MACRO Y05. 
GLOBA^ TEXT SECTION 

1782 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1805 

1806 023412 
023412 

023412 124 

1807 
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.SBTTi GLOBAL TEXT SECTION 



SEQ 43 



113 



: *************************************************************** 

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS. 
MESSAGES. AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TEST. 

i : *************************************************************** 

; *************************************************************** 



:*********************************************************««*«** 

NAMES OF DEVICES SUPPORTED BY PROGRAM 

;************************«************************•************* 

DEVTYP <TK50> 
LJDVTYP: : 
065 .ASCIZ <TK50« 

.EVEN 
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GLOBAL TEXT SECTION 



1812 
1813 
1814 
1815 
1816 
1817 
1818 

1819 023420 

1820 023454 
1C21 023534 

1822 023564 

1823 023626 

1824 02370:^ 

1825 021746 
1626 

1827 023772 

1828 024035 

1829 024071 

1830 024122 

1831 024147 

1832 024211 

1833 024214 

1834 024265 

1835 024342 
1836 

1637 

1838 024417 
1639 024473 

1840 024531 

1841 024571 

1842 024631 

1843 024671 

1844 024731 

1845 024771 

1846 025026 

1847 025073 
1846 025137 

1849 025203 

1850 025247 

1851 025313 

1852 025357 

1853 025423 

1854 025467 

1855 025533 

1856 025601 

1857 025646 

1858 025710 

1859 025752 

1860 026011 

1861 026053 

1862 026115 

1863 026154 

1864 026213 

1865 026255 

1866 026317 

1867 026361 

1868 026423 



045 
045 
045 
045 
045 
045 
045 



101 
116 
116 
116 
101 
116 
101 



FORMAT STATEMENTS 



111 
045 
045 
045 
122 
045 
120 



LINEl 
LINE2 
LINE3 
LINE4 
LI^4E5 
LINE6 
LINE7 



.ASCIZ 
.ASCIZ 
-ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



OAS 






mi 




ASCT7 


OAS 


116 


04S 


UR2 




ASCIZ 

• n JWX& 


045 


116 


045 


UR3 




ASCIZ 

• n j\bX& 


045 


116 


045 


UR4 




.ASCIZ 


045 


116 


045 


UR5 




ASCIZ 


045 


' 16 


000 


Uf(6 




ASCIZ 


045 


116 


045 


UR7 




.ASCIZ 


045 


116 


045 


UR8 




! ASCIZ 


OAS 


116 

X XV 


045 


UR9 




! ASCIZ 


045 


116 


062 


L21 




.ASCIZ 


045 


116 


062 


L22 




.ASCIZ 


045 


116 


045 


L23 




.ASCIZ 


045 


116 


045 


L24 




.ASCIZ 


045 


116 


045 


L25 




! ASCIZ 


045 


116 


045 


L26 




.ASCIZ 


045 


116 


045 


L27 




' ASCIZ 


045 


116 


045 


L2S 




! ASCIZ 


045 


116 


062 


L29 




. ASCIZ 


045 


116 


045 


L210: 


.ASCIZ 


045 


116 


045 


L211: 


.ASCIZ 


045 


116 


045 


L212: 


.ASCIZ 


045 


116 


045 


L213 : 


.ASCIZ 


045 


116 


045 


L214: 


.ASCIZ 


045 


116 


045 


L215: 


.ASCIZ 


045 


116 


045 


L216: 


.ASCIZ 


045 


116 


045 


L219: 


.ASCIZ 


045 


116 


045 


L220: 


.ASCIZ 


045 


116 


062 


L221: 


.ASCIZ 


045 


116 


045 


L222: 


.ASCIZ 


045 


116 


045 


L223: 


.ASCIZ 


045 


116 


045 


L224: 


.ASCIZ 


045 


116 


045 


L225: 


.ASCIZ 


045 


116 


045 


L226: 


.ASCIZ 


045 


116 


045 


L227: 


.ASCIZ 


045 


116 


045 


L228: 


.ASCIZ 


045 


116 


045 


L229: 


.ASCIZ 


045 


116 


045 


L230: 


.ASCIZ 


045 


116 


045 


L231: 


.ASCIZ 


045 


116 


045 


L232: 


.ASCIZ 


045 


U6 


045 


L233: 


.ASCIZ 



7KAINIT SEQUENCE STEP ♦: Ml? 

TKNKASA REG: «06«A EXPCTD: «06«A ACTUAL SA: i(06? 
TKNKAIP REG ADDRESS: «06? 
?i(NKA****FAILING FRU: i(Ti(A****i(Ni(N? 
7KAREL0CATI0N CONSTANT: i(06KA VIRT. ADD: «06? 
?tfNtfAEXPECTED: 11Q6M RECEIVED: tf06? 
?|(APHYSICAL ADD: 4061 

?i(NtfASA REG: SA CONTENTS: «06? 

?|(N«AFAILING COMMAND : ifTKN? 

7KNKA RESPONSE PACKETKN? 

IHMK i<06i<A 1(06? 

?i(N«ACMD EXP: HObHh CMD REC: 406? 

?i(N? 

?tfNKAFAlLlN6 COMMAND : tfTKNKAUNIT UNKNOWN? 
?i(Ni(ArAILING COMMAND : i(Ti(NtfANO MEDIA MOUNTED? 
?i(NtfAFAILING COMMAND : ifTifNKAUNIT INOPERATIVE? 



?i<N2i<A**«* LEVEL 2 MICRODIAGNOSTIC DUMP ***«? 
?i(N2«APR0GRAM STATUS: i(06? 
?i(Ni(ADRIVE STATUS: *0Z7 
?i<N«<ATEST NUMBER: i<D37 
?i<N«ATRACK NUMBER: i<D37 
?i<NitATMSCP COMMAND: i<03? 
?i<NitATMSCP RESPONSE FLAG: i<03? 
?«NitATMSCP UNIT FLAG: «06? 
?«N2i(ABL0CKS WRITTEN CHANNEL 1: 
7KNKABL0CKS WRITTEN CHANNEL 2: 
?i(NtfABLOCKS READ CHANNEL 1: 
?tfN«ABLOCKS READ CHANNEL 2: 
?i»N«<ASOFT WRITE CHANNEL 1: 
7KNKAS0FT WRITE CHANNEL 2: 
?i<N«AECC CORRECTED CHANNEL 
?i<NitAECC CORRECTED CHANNEL 
?i(N«AREAD REPOSITIONS CHANNEL 1: 
^ifNKAREAD REPOSITIONS CHANNEL 2: 



1: 
2: 



|<D6? 
KD6? 
i(D6? 
i<D6? 
i<D6? 
KD6? 
KD6? 
KD67 
i<D6? 
i<D6i<N? 

."iN2itAERR0R LOG (TAPE TRANSFER ERROR}? 
?KNtfAERROR FORMAT: i<03? 
?KNitAERROR FLAGS: i<03? 
TKNKAEVENT CODE: it06? 
?itN«<AERROR RETRY LEVEL: i<03? 
7KNKANUMBER OF RETRIES: itD3? 
7KNKAP0SITI0N (LOW ORDER): i<06? 
?<N«tAPOSITION (HIGH ORDER): i<06? 
?itNitACONTROLLER STATUS: KOS? 
?i(Ni(ADRIVE ERROR CODE: K03? 
?KN<(ADRIVE FLAGS: K03? 
?tfNl(ATRACK NUMBER: «D3? 
?tfNKAPHYSICAL BLOCK NUMBER: «D6? 
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SEQ 45 



1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

l6Bf. 

1805 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

}896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 



026462 
026524 
026566 
026630 
026672 
026731 
026770 
027027 
027071 

027130 
027224 
027320 
027414 
027510 
027604 
027700 
027774 
030070 
030164 
030260 



030334 
030355 
030406 
030427 
030465 
030512 
030540 
030601 
030650 
030677 
030726 

030763 
031003 
031023 
031040 
031057 
031107 
031127 
031145 
031160 
031211 
031232 
031246 
03126^ 
031306 
031334 



045 


4 4 £ 

116 


045 


L234: 


.HSCIZ 


?*WALUbICAL BLOCK NUnBER: 


»U3? 




045 


116 


045 


L235: 


. ASCIZ 


7WWATAPE COUNT 0 : 


•Ud? 




045 


4 4 £ 

116 


045 


L23o: 


Jl t^T7 


?»N»MTArt COUNT 1 ; 


•03? 




045 


116 


045 


L237: 


.ASCIZ 


?i*N*ATAPE COUNT 2 : 


*03? 




045 


116 


045 


L238: 


-ASCIZ 


?i(N«ADRIVE STATE: 


KOo? 




045 


116 


045 


1 OTA 

L239: 


.ASCIZ 


?»N»ARtAD/HKlTE STATE: 


Wo? 




045 


4 4 C 

116 


045 


L240 ; 


.A5LXZ 


A AD^D A TT AU CI Af^C . 


Wo? 




045 


4 4 £ 
llD 




1 OA1 . 

Lc^l : 


. AbLlZ 


?^uo^ACDono 1 nr^ ff^nuToni i co 
/sNcvntKKUK LUu ^LUTI 1 KULLcX 


tKKUK J ? 




Ail C 

045 


4 4 £ 

116 


045 


Lc'*c : 


. AbLlZ 


?iin»Ht.uNIKOLLcK ERROR LODE: 


Wo? 




045 


4 4 £. 

116 


AO 


L244 ; 




r»Ni;»MBTIE KEHU: »U3»M BTIt 


UK 11 icN: 




045 


4 4 £ 

116 


045 


L245: 


ACf*T7 

. AbLlZ 








045 


4 4 £ 

116 


045 


L240 ; 


Acr TT 
« AbLlZ 






Wo»M 


045 


116 


A^C 

045 


L247 : 


ACf*TT 








/KMC 

045 


116 


045 


1 Oil B . 

L249 : 


-nbUlZ 








045 


116 


045 


L247 : 


. AbLlZ 


?«NtfA «03«A 




«03«A 


Qn 


no 




1 O^A • 
Lc3v i 


AcrT7 


?«NtfA «03«A 




«03tfA 


045 


116 


045 


L251: 


.ASCIZ 


?«NitA i(03«A 




KOSKA 


045 


116 


045 


L252: 


.ASCIZ 


?i(NitA «03«A 




it03tfA 


045 


116 


045 


L253: 


.ASCIZ 


TKNilA tf03i(A 




«03«A 


045 


116 


062 


L254: 


.ASCIZ 


?«N2tfAT0TAL NUMBER OF HISCONPARED BYTES: * 








.EVEN 











ADDRESS: 



«06? 
«06? 
«06? 
«06? 
1(06? 
«06? 
«06? 
«06? 
KQ6? 
K06? 



ERROR MESSAGES 

• ************** *********************** 



116 


130 


115 


EMS65 




.ASCIZ 


?NXM ON READ TKIP? 


124 


113 


111 


EMSG6 




•ASCIZ 


?TKIP NOT 0 ON FIRST READ? 


116 


130 


115 


EMSG7 




.ASCIZ 


?NXM ON READ TKSA? 


123 


101 


040 


EMSG8 




.ASCIZ 


?SA REG IN ERROR ON FIRST READ? 


123 


toi 


040 


EMSG9 




.ASCIZ 


?SA CONTENTS IN ERROR? 


123 


101 


040 


EMSGIO 


: .ASCIZ 


?SA URONG IN DATA URAP? 


105 


130 


120 


EMSGll 


: .ASCIZ 


?EXPECTED INTERRUPT DID NOT OCCUR? 


111 


116 


124 


EMSG12 


: .ASCIZ 


?INTRRPT OCCURRED UITH CPU PRIORITY 


123 


101 


C40 


EMSG13 


: .ASCIZ 


?SA NOT 0 IN PURGE/POLL? 


120 


125 


122 


EMSG14 


:. ASCIZ 


?PURGE/POLL TEST FAILED? 


105 


130 


124 


EMSG15 


: .ASCIZ 


?EXTENOEO ADDRESS TEST FAILED? 


111 


116 


126 


L2EP1 




.ASCIZ 


?INVALID COMMAND? 


103 


117 


115 


L2ER2 




.ASCIZ 


?C0MMAN0 ABORTED? 


125 


116 


111 


L2ER3 




-ASCIZ 


7UNIT-QFFLINE? 


125 


116 


111 


L2ER4 




.ASCIZ 


7UNIT-AVAILABLE? 


111 


116 


126 


L2ER5 




.ASCIZ 


?INVALID STATUS RECEIVED? 


127 


122 


111 


L2ER6 




.ASCIZ 


?WRITE PROTECTED? 


103 


117 


115 


L2ER7 




.ASCIZ 


?C0MPARE ERROR? 


104 


101 


124 


L2ER8 




.ASCIZ 


?0ATA ERROR? 


110 


117 


123 


L2ER9 




.ASCIZ 


?H0ST BUFFER ACCESS ERROR? 


103 


117 


116 


L2ER10 


: .ASCIZ 


7C0NTR0LLER ERROR? 


104 


122 


111 


L2ER11 


: .ASCIZ 


7DRIVE ERROR? 


106 


117 


122 


L2ER12 


: .ASCIZ 


7F0RMATTER ERROR? 


102 


117 


124 


L2ER13 


: .ASCIZ 


?BOT ENCOUNTERED? 


124 


101 


120 


L2ER14 


:. ASCIZ 


?TAPE MARK ENCOUNTERED? 


111 


116 


126 


L2ER15 


:. ASCIZ 


?INVALID STATUS RECEIVED? 



7? 



CLOeAL AREAS MACRO Y05.02 
GLOBAL TEXT SECTION 



1926 031364 

1927 031412 

1928 031430 

1929 031451 

1930 031467 

1931 031551 

1932 031631 

1933 031720 

1934 032010 

1935 032076 

1936 032167 

1937 032261 
1938 

1939 032347 

1940 032401 

1941 032422 

1942 032450 

1943 032474 

1944 032525 

1945 032546 

1946 032614 
1947 

1949 
1949 
1950 
1951 
1952 
1953 
1954 

1955 032640 

1956 032655 

1957 032663 

1958 032670 

1959 032675 

1960 032702 

1961 032707 

1962 032714 

1963 032721 

1964 032726 

1965 032733 
1966 

1967 
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SEQ 46 



122 


105 


103 


L2ER16 


::.ASCIZ 


120 


117 


123 


L2ER17 


::.ASCIZ 


123 


105 


122 


L2ER18 


:: .ASCIZ 


114 


105 


117 


L2ER19 


:: .ASCIZ 


115 


111 


103 


L2ER20 


: .ASCIZ 


115 


111 


103 


L2ER21 


:. ASCIZ 


115 


111 


103 


L2ER22 


: -ASCIZ 


lie 


111 

111 


lUo 




ACPT7 


115 


111 


103 


L2ER24 


: -ASCIZ 


115 


111 


103 


L2ER25 


: -ASCIZ 


115 


111 


103 


L2ER26 


: .ASCIZ 


115 


111 


103 


L2ER27 


: .ASCIZ 


124 


111 


115 


URERl 




-ASCIZ 


120 


117 


122 


URER2 




.ASCIZ 


124 


115 


123 


URER3 




.ASCIZ 


120 


117 


122 


URER4 




.ASCIZ 


122 


105 


123 


URER5 




.ASCIZ 


103 


117 


115 


URER6 




.ASCIZ 


125 


116 


105 


URER7 




.ASCIZ 


104 


125 


120 


URER8 




.ASCIZ 












• EVEN 



7REC0R0 DATA TRUNCATED? 
7P0SITI0N LOST? 
7SERI0US EXERTION? 
?LEOT DETECTED? 

?mCRODIAGNOSTIC PROGRAM ERROR: 
7MICR0DI AGNOSTIC PROGK-^M ERROR: 
?MICRODIAGNOSTIC PROGRAM ERROR: 
?MICRODIAGNOSTIC PROGRAM ERROR: 
?MICRODIAGNOSTIC PROGRAM ERROR: 
?MICRODIAGNOSTIC PROGRAM ERROR; 
?MICR0DIAGN0STIC PROGRAM ERROR; 
7MICR00IAGN0STIC PROGRAM ERROR; 



DATA COMPARE ERROR? 
CONTROLLER ERROR? 
INVALID STATUS RECEIVED? 
BAD PATTERN NUMBER ERROR? 
RESPONSE ADDRESS ERROR? 
HOST BUFFER ADDRESS ERROR? 
UNKNOWN ERROR LOG RECEIVED? 
RESPONSE TIMEOUT ERROR? 



?TIME OUT DURING PORT INIT? 
?PORT INIT FAILED? 
?TMSCP COMMAND FAILURE? 
?PORT DETECTED ERROR? 
?RESPONSE OUT OF SEQUENCE? 
?COMMAND TIME OUT? 

?UNEXPECTED STATUS FOR ONLINE RECEIVED? 
?DUP COMMAND FAILURE? 



MISCELLANEOUS ERROR MESSAGES 



103 


116 


124 


CTRL : : 


.ASCIZ 


7CNTRLR/CABLE? 


104 


122 


111 


DRVE:: 


.ASCIZ 


7DRIVE? 


123 


103 


103 


SCCCMD 


: .ASCIZ 


7SCC 7 


117 


116 


114 


ONLCMD 


: .ASCIZ 


70NL 7 


122 


105 


127 


REWCMO 


:. ASCIZ 


?REU ? 


127 


122 


040 


URCMD: 


.ASCIZ 


?UR ? 


122 


104 


040 


RDCMD: 


-ASCIZ 


?RD ? 


107 


104 


123 


GDSCMO 


: -ASCIZ 


?GDS 7 


105 


114 


120 


ELPCMO 


: .ASCIZ 


?ELP ? 


122 


103 


126 


RCVCMD 


: .ASCIZ 


7RCV 7 


101 


102 


124 


ABTCMO 


:. ASCIZ 


7ABT 7 



.EVEN 
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SEQ 47 



1969 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1987 

1988 032740 
1989 

1990 032740 

1991 032740 
032740 
032744 
032750 
032754 
032756 
032760 

1992 

1993 032764 

1994 032764 
032764 
032770 
032774 
033000 
033004 
033010 
033012 
033014 

1995 033020 
1996 

1997 033022 

1998 033022 
033022 
033024 
033030 
033034 
033036 
033040 

1999 033044 
2000 

2001 033046 

2002 033046 
033046 
033050 
033054 
0330e0 
033064 
033066 
033070 

2003 

2C04 033074 



.S6TTL GLOBAL ERROR REPORT SECTION 



013746 
012746 
012746 
010600 
104415 
062706 



016446 
013746 
016446 
012746 
012746 
010600 
104415 
062706 
000452 



010246 
012746 
012746 
010600 
104415 
062706 
000413 



010246 
013746 
012746 
012746 
010600 
104415 
062706 



; *************************************************************** 

GLOBAL ERROR REPORTS 

THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTS 
AND PRINTX CALLS THAT ARE USED IN MORE THAN ONE TEST. 
IT ALSO INCLUDES THE ASCII MESSAGES THAT ARE USED BY 
THE PRINTB AND PRINTX CALLS. 

:*************************************************************** 

;*************************************************************** 



BGNMSG 



PRIINI:: 



002316 
023420 
000002 



000006 



000012 
002314 
000002 
023454 
000004 



000012 



023746 
000002 



000006 



172346 
023626 
000003 



000010 



PRISA: 



ORIPAO: 



PRIVAD: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 



PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 



♦LINEl.INISTP 

INISTP.-(SP) 

#LINE1,-(SP) 

♦2.-(SP) 

SP.RO 

CtPNTX 

«6,SP 



«LINE2 , TKSAC R4 ) . SAEXP , TKSASV(R4 ) 

TKSASV(R4),-(SP) 

SAEXP. -CSP) 

TKSA(R4),.(SP) 

#LINE2.-(SP) 

«4,-(SP) 

SP.RO 

C»PNTX 

*12.SP 

PRIEi^R 



#LINE7.R2 

R2.-(SP) 

#LINE7,-(SP) 

*2.-(SP) 

SP.RO 

C»PNTX 

#6.SP 

PRIDAT 



«LINE5.KPAR3.R2 

R2,-(SP) 

KPAR3.-(SP) 

♦LINES. -(SP) 

#3..(SP) 

SP.RO 

CIPNTX 

«10.SP 



PRIDAT: 
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2005 033074 








PRINTX 


«LINE6.R1.(R2} 


033074 


011246 






MOV 


(R2). (SP) 


033076 


010146 






MOV 


Rl.-(SP) 


033100 


012746 


023703 




MOV 


#LINE6.-(SP) 


033104 


012746 


000003 




MOV 


#3.-(SP) 


033110 


C10600 






MOV 


SP.RO 


033112 


104415 






TRAP 


C»PNTX 


033114 


062706 


000010 




ADD 


♦lO.SP 


2006 033120 


000412 






BR 


PRIERR 


2007 












2008 033122 






PRIIP: : 






2009 033122 








PRINTX 


#LINE3,TKIP(R4) 


033122 


016446 


000000 




MOV 


TKIP(R4).-(SP) 


033126 


012746 


023534 




MOV 


♦LINE3.-(SP) 


033132 


012746 


000002 




MOV 


*2.-(SP) 


033136 


010600 






MOV 


SP.RO 


033140 


104415 






TRAP 


C»PNTX 


033142 


062706 


000006 




ADO 


«6,SP 


2010 










2011 033146 






PRIERR: 


: 




2012 033146 








PRINTS 


W.INE4.FRUIS 


033146 


013746 


002310 




MOV 


FRUIS.-(SP) 


033152 


012746 


023564 




MOV 


«.INE4.-(SP) 
♦2.-(SP) 


033156 


012746 


000002 




MOV 


033162 


010600 






MOV 


SP.RO 


033164 


104414 






TRAP 


C»PNT8 


033166 


062706 


000006 




ADD 


«6,SP 


2013 033172 


000137 


033536 




JMP 


PRIEX 


2014 












2015 033176 






URINTO: 


: 




2016 033176 








PRINTX 


♦LINEl.INISTP 


033176 


013746 


002316 




MOV 


INISTP,-(SP) 


033202 


012746 


023420 




MOV 


♦LINEl.-CSP) 


033206 


012746 


000002 




MOV 


#2.-(SP) 


033212 


010600 






MOV 


SP.RO 


033214 


104415 






TRAP 


C»PNTX 


033216 


062706 


000006 




ADD 


«6.SP 


2017 












2018 03322>2 






URPRTE: 






2019 033222 








PRINTX 


♦WR1.TKSA(R4),TKSASV(R4) 


033222 


016446 


000012 




MOV 


TKSASV(R4).-(SP) 


033226 


016446 


000002 




MOV 


TKSA(R4).-(SP) 


033232 


012746 


023772 




MOV 


♦WR1,-(SP) 


033236 


012746 


000003 




MOV 


♦3.-CSP) 


033242 


010600 






MOV 


SP.RO 


033244 


104415 






TRAP 


C»PNTX 


033246 


062706 


000010 




ADD 


#10. SP 


2020 033252 


000137 


033512 




JMP 


UREX 


2021 












2022 033256 






URCnOE : 






2023 033256 








PRINTX 


R2.CURCM0 


033256 


013746 


023042 




MOV 


CURCMD. (SP) 


033262 


010246 






MOV 


R2, -(SP) 


033264 


012746 


000002 




MOV 


♦2.-(SP) 


033270 


010600 






MOV 


SP.RO 


033272 


104415 






TRAP 


CJPNTX 


033274 


062706 


000006 




ADO 


*6.SP 
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2024 033300 








PRINTX 


«UR3 


033300 


012746 


024071 




MOV 


«UR3.-(SP) 


033304 


012746 


000001 




MOV 


*1.-(SP) 


033310 


010600 






MOV 


SP.RO 


033312 


104415 






TRAP 


C»PNTX 


033314 


062706 


000004 




ADD 


♦4.SP 


2025 033320 


010301 






MOV 


R3.R1 


2026 033322 






Wl: 


PRINTX 


«UR4,2(R1).(R1) 


033322 


011146 






MOV 


(Rl).-(SP) 


033324 


016146 


000002 




MOV 


2(R1).-(SP) 


033330 


012746 


024122 




MOV 


*WR4. (SP) 


033334 


012746 


000003 




MOV 


*3.-(SP) 


033340 


010600 






MOV 


SP.RO 


033342 


104415 






TRAP 


C»PNTX 


033344 


062706 


000010 




ADD 


♦10. SP 


2027 033350 


062701 


000004 




ADD 


«4.R1 


2028 033354 


162763 


000004 


177774 


SUB 


«4.MSGLEN(R3) 


2029 033362 


001357 






BNE 


Ul 


2030 033364 








PRINTX 


«UR6 


033364 


012746 


024211 




MOV 


*WR6,-(SP) 


033370 


012746 


000001 




MOV 


*1.-(SP) 


033374 


010600 






MOV 


SP.RO 


033376 


104415 






TRAP 


C»PNTX 


033400 


062706 


000004 




ADD 


♦4.SP 


2031 033404 


000137 


033512 




JMP 


UREX 


2032 












2033 033410 






URSEQE : 


: 




2034 033410 








PRINTX 


«UR2.CURCMD 


033410 


013746 


023042 




MOV 


CURCMO.-(SP) 


033414 


012746 


024035 




MOV 


♦WR2.-(SP) 


033420 


012746 


000002 




MOV 


*2.-(SP) 


033424 


010600 






MOV 


SP.RO 


033426 


104415 






TRAP 


OPNTX 


033430 


062706 


000006 




ADO 


#6.SP 


2035 033434 








PRINTX 


♦WR5,P.CRF(R3).P 


033434 


016546 


000000 




MOV 


P.CRF(R5).-(SP) 


033440 


016346 


000000 




MOV 


P.CRF(R3).-(SP) 


033444 


012746 


024147 




MOV 


♦WR5.-(SP) 


033450 


012746 


000003 




MOV 


♦3,-(SP) 


033454 


010600 






MOV 


SP.RO 


033456 


104415 






TRAP 


C»PNTX 


033460 


062706 


000010 




ADO 


♦10. SP 


2036 0SS464 


000412 






BR 


UREX 


2037 












2038 033466 






URTOE: : 






2039 033466 








PRINTX 


♦UR2.CURCMD 


033466 


013746 


023042 




MOV 


CURCMD.-(SP) 


033472 


012746 


024035 




MOV 


«UR2. (SP) 


033476 


012746 


000002 




MOV 


♦2,-(SP) 


033502 


010600 






MOV 


SP.RO 


033504 


104415 






TRAP 


C»PNTX 


0SS506 


062706 


000006 




ADO 


♦6.SP 


2040 












2041 033512 






UREX:: 






2042 033512 








PRINTS 


♦LINE4.FRUIS 


033512 


013746 


002310 




MOV 


FRUIS.-CSP) 


033516 


012746 


023564 




MOV 


♦LINE4. (SPy 
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033522 


012746 


000002 


MOV 


#2.-(SP) 


033526 


010600 




MOV 


So.RO 


033530 


104414 




TRAP 


CIPNTB 


033532 


062706 


000006 


ADD 


06.SP 


2043 










2044 033536 






PRIEX: EXIT 


MSG 


03353C 


000167 




.WORD 


JUMP 


033540 


000000 




.WORD 


L10003 2 . 


2045 










2046 033542 






ENOMSG 




033542 






L10003: 




033542 


104423 




TRAP 


C$MSG 


2047 










2048 033544 






BGNMSG 


L2DUMP 


033544 






L2DUMP : : 




2049 










2050 033544 






PRINTB 


♦LINE4,FRUIS 


033544 


013746 


002310 


MOV 


FRUIS, (SP) 


033550 


012746 


023564 


MOV 


#LINE4.-(SP) 


033554 


012746 


000002 


MOV 


♦2, -(SP) 


033560 


010600 




MOV 


SP.RO 


033562 


104414 




TRAP 


C$PNTB 


033564 


062706 


000006 


ADD 


#6.SP 


2051 033570 






PRINTB 


♦L21 


033570 


012746 


024417 


MOV 


♦L21.-(SP) 


033574 


012746 


000001 


MOV 


♦1,-(SP) 


033600 


010600 




MOV 


SP.RO 


033602 


104414 




TRAP 


C»PNTB 


033604 


062706 


000004 


ADD 


♦4,SP 


2052 033610 






PRINTB 


#L22,L2STA(R1) 


033610 


016146 


000002 


MOV 


L2STA(R1), -(SP) 


033614 


012746 


024473 


MOV 


#L22,-(SP) 


033620 


012746 


000002 


MOV 


#2.-(SP) 


033624 


010600 




MOV 


SP.RO 


033626 


104414 




TRAP 


C»PNTB 


033630 


062706 


000006 


ADD 


#6.SP 


2053 033634 






PRINTB 


«L23.L20RV(R1) 


033634 


016146 


000004 


MOV 


L2DRV(R1). -(SP) 


033640 


012746 


024531 


MOV 


#L23.-(SP) 


033644 


012746 


000002 


MOV 


♦2.-(SP) 


033650 


010600 




MOV 


SP.RO 


033652 


104414 




TRAP 


CIPNTB 


033654 


062706 


000006 


ADD 


♦6,SP 


2054 033660 






PRINTB 


#L24.<B,L2TST(R1)> 


033660 


005046 




CLR 


-(SP) 


033662 


156116 


000006 


BIS0 


L2TST(R1).(SP) 


033666 


012746 


024571 


MOV 


#L24,-(SP) 


033672 


012746 


000002 


MOV 


♦2,-(SP) 


033676 


010600 




MOV 


SP.RO 


033700 


104414 




TRAP 


C<PNTB 


033702 


06270b 


000006 


MD 


#6,SP 


20S5 033706 






PRINTB 


«L25.<B.L2TRK(R1)> 




005046 




LLK 


" C SP ) 


033710 


156116 


000007 


BISB 


L2TRK(R1).(SP) 


033714 


012746 


024631 


MOV 


#L25.-(SP) 


0SS720 


012746 


000002 


MOV 


♦2.-(SP) 


033724 


010600 




MOV 


SP.RO 
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033726 


104414 




TRAP 


CIPNTB 


033730 


062706 


000006 


AOO 


•6.SP 


2056 033734 






PRINTB 


•L26.<B.L2CM0(R1)> 


033734 


005046 




CLR 


-CSP) 


033736 


156116 


000010 


BIS8 


L2CM0(R1).(SP) 


033742 


012746 


024671 


MOV 


•L26.-(SP) 


033746 


012746 


000002 


nov 


♦2. -CSP) 


03375? 


010600 




nov 


SP.RO 


033754 


104414 




TRAP 


CtPNTB 


033756 


062706 


000006 


AOO 


•6.SP 


2057 033762 






PRINTB 


•L27.<B.L2RSP(R1)> 


033762 


005046 




CLR 


-CSP) 


033764 


156116 


000011 


BIS6 


L2RSP(R1).(SP) 


033770 


012746 


024731 


MOV 


«-27.-(SP) 


033774 


012746 


000002 


nov 


«2.-(SP) 


034000 


010600 




MOV 


SP.RO 


034002 


104414 




TRAP 


CtPNTB 


034004 


062706 


000006 


AOO 


«6.SP 


2058 034010 






PRINTB 


#L28.L2UNT(R1) 


034010 


016146 


000012 


MOV 


Li!UNT(Rl).-(SP) 


034014 


012746 


024771 


MOV 


«L28.-(SP) 


034020 


012746 


000002 


MOV 


♦2. -CSP) 


034024 


010600 




MOV 


SP.RO 


034026 


104414 




TRAP 


CtPNTB 


034030 


062706 


000006 


ADD 


•6.SP 


2059 034034 


126127 


000134 000005 


CMPB 


L2ELFM(R1).#TXFER 


2060 034042 


001402 




BEQ 


It 


2061 034044 


000137 


034720 


JMP 


lot 


2062 034050 




It: 


PRINTB 


♦L221 


034050 


012746 


025601 


MOV 


•L221, (SP) 


034054 


012746 


000001 


MOV 


♦l.-(SP) 


034060 


010600 




MOV 


SP.RO 


034062 


104414 




TRAP 


CtPNTB 


034064 


062706 


000004 


ADD 


«4,SP 


2063 034070 






PRINTB 


«L222.<B.L2ELFMCR1)> 


034070 


005046 




CLR 


-CSP) 


034072 


156116 


000134 


BIS6 


L2ELFM(R1).(SP) 


034076 


012746 


025646 


MOV 


«-222.-(SP) 


034102 


012746 


000002 


MOV 


•2. -CSP) 


034106 


010600 




MOV 


SP.RO 


034110 


104414 




TRAP 


CtPNTB 


034112 


062706 


000006 


AOO 


«6.SP 


2064 034116 






PRINTB 


«L223.<B,L2ELFL(R1)> 


034116 


005046 




CLR 


-CSP) 


034120 


156116 


000135 


BISB 


L2ELFLCR1).CSP) 


034124 


012746 


025710 


MOV 


♦L223.-CSP) 


034130 


012746 


000002 


MOV 


♦2. -CSP) 


034134 


010600 




MOV 


SP.RO 


034136 


104414 




TRAP 


CtPNTB 


034140 


062706 


000006 


AOO 


«6.SP 


2065 034144 






PRINTS 


«L224.L2ELEVCR1) 


034144 


016146 


000136 


MOV 


L2ELEV(R1),-CSP) 


034150 


012746 


025752 


MOV 


♦L224.-CSP) 


034154 


012746 


000002 


MOV 


♦2. -CSP) 


034160 


010600 




MOV 


SP.RO 


034162 


104414 




TRAP 


CtPNTB 


034164 


062706 


000006 


ADO 


«6.SP 



"TAPE TRANSFER" ERROR LOG ? 

YES, DUMP "TAPE TRANSFER" ERROR LOG 

NO. CHECK "CONTROLLER ERROR" ERROR LOG 
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2066 034170 






PfilNTB 


«-225. <B.L2ELRL(R1)> 




00SO46 




CLR 


-(SP) 


0-5417? 


156116 


000144 


BISB 


L2ELRLfRl).(SP) 


034176 


012746 


026011 


MOV 


4L225, -CSP) 


034202 


012746 


000002 


nov 


♦2,-(SP) 


034206 


010600 

w w 




MOV 


£* .RO 


034210 


104414 




TRAP 


C*PNTB 


034212 


062706 


000006 


ADD 


46.SP 


2067 034216 






PRINTB 


4L226. <B,L2ELRT(R1)> 


034216 


005046 




CLR 


-CSP) 


034220 


1S6116 


000145 


BISB 


L2ELRT(P1).(SP) 


034224 


012746 


026053 


nov 


4L226. -CSP) 


034230 


012746 


000002 


MOV 


♦2. -CSP) 


034234 


010600 




HOV 


SP.RO 


034236 


104414 




TRAP 


C*PNTB 


034240 


062706 


000006 


ADD 


«6,SP 


2066 034244 






PRINTB 


#L227.L2ELP1(R1) 


034244 


016146 


000146 


HOV 


L2ELP1(R1),-(SP) 


034250 


012746 


026115 


NOV 


«L227.-(SP3 


034254 


012746 


000002 


MOV 


♦2.-(SP) 


034260 


010600 




NOV 


SP.RO 


034262 


104414 




TRAP 


CIPNTB 


034264 


062706 


000006 


ADD 


«6,SP 


2069 034270 






PRINTB 


«L228.L2ELP2(R1) 


034270 


016146 


000150 


NOV 


L2ELP2(R1),-(SP) 


034274 


012746 


026154 


NOV 


♦L228.-(SP) 


034300 


012746 


000002 


NOV 


•2. -CSP) 


034304 


010600 




NOV 


SP.RO 


034306 


104414 




TRAP 


OPNTB 


034310 


062706 


000006 


ADD 


•6.SP 


2070 034314 






PRINTB 


«L229 . <B . L2ELST( Rl ) > 


034314 


005046 




CLR 


-CSP) 


034316 


156116 


000154 


BISB 


L2ELST(R1),(SP) 


034322 


012746 


026213 


NOV 


•L229,-(SP} 


034326 


012746 


000002 


NOV 


•2. -CSP) 


034332 


010600 




NOV 


SP.RO 


034334 


104414 




TRAP 


CtPNTB 


034336 


062706 


000006 


ADO 


•6.SP 


2071 034342 






PRINTB 


•L230 . <B . L2EL0E( R 1 ) > 


034342 


005046 




CLR 


-(SP) 


034344 


156116 


000155 


BISB 


L2ELDE(R1).(SP) 


034350 


012746 


026255 


NOV 


•L230.-(SP} 


034354 


012746 


000002 


NOV 


♦2,-(SP) 


034360 


010600 




NOV 


SP.RO 


034362 


104414 




TRAP 


C*PNTb 


034364 


062706 


000006 


ADD 


•6.SP 


2072 034370 






PRINTB 


•L231,<B.L2EL0F(R1}> 


034370 


005046 




CLR 


-CSP) 


034372 


156116 


000156 


BISB 


L2ELDf^CRl).(SP) 


034376 


012746 


026317 


NOV 


•L231, -(SP) 


OS4402 


012746 


000002 


NOV 


♦2.-{SP) 


034406 


010600 




NOV 


SP.RO 


034410 


104414 




TRAP 


CIPNTB 


034412 


062706 


000006 


ADD 


•6.SP 


2073 034416 






PRINTB 


•L232.<B.L2ELTN(R1}> 


034416 


005046 




aR 


(SP) 


034420 


156116 


000157 


BISB 


L2ELTN(R1}.(SP) 
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0S4424 


012746 


026361 


nov 


•L232. (SP) 


034430 


012746 


000002 


nov 


♦2.-(SP) 


034434 


010600 




nov 


SP.RO 


034436 


104414 




TRAP 


CtPNTB 


034440 


062706 


000006 


AOO 


•6.SP 


2074 034444 






PRINTS 


«L233.L2ELP6(R1) 


034444 


016146 


000160 


HOV 


L2ELPB(R1). (SP) 


034450 


012746 


026423 


nov 


•L233. -(SP) 


034454 


012746 


000002 


nov 


♦2. (SP) 


034460 


010600 




MOV 


SP.RO 


034462 


104414 




TRAP 


C$PNTB 


034464 


062706 


000006 


AOO 


•6.SP 


2075 034470 






PRINTS 


«L234.<B.L2ELLB(R1)> 


034470 


005046 




CLR 


(SP) 


034472 


156116 


000162 


BISB 


L2ELLB(R1).(SP) 


034476 


012746 


026462 


MOV 


•L234.-(SP) 


034502 


012746 


000002 


MOV 


♦2,-(SP) 


034506 


010600 




MOV 


SP.RO 


034510 


104414 




TRAP 


OPNTB 


034512 


062706 


000006 


ADD 


•6.SP 


2076 034516 






PRINTB 


•L235.<B.L2ELT0(R1)> 


034516 


005046 




CLR 


-(SP) 


034520 


156116 


000163 


BISB 


L2ELT0(R1).(SP) 


034524 


012746 


026524 


MOV 


•L235.-(SP) 


034530 


012746 


000002 


MOV 


♦2.-(SP) 


034534 


010600 




MOV 


SP.RO 


034536 


104414 




TRAP 


CIPNTB 


034540 


062706 


000006 


ADD 


46. SP 


2C77 034544 






PRINTB 


«L236.<B.L2ELT1(R1)> 


034544 


005046 




CLR 


-(SP) 


034546 


156116 


000164 


BISB 


L2ELT1(R1).(SP) 


034552 


012746 


026566 


MOV 


•L236.-(SP) 


034556 


012746 


000002 


MOV 


♦2.-(SP) 


034562 


010600 




MOV 


SP.RO 


034564 


104414 




TRAP 


CtPNTB 


034566 


062706 


000006 


ADD 


•6.SP 


2078 034572 






PRINTB 


♦L237,<B.L2ELT2(R1)> 


034572 


005046 




CLR 


-(SP) 


054574 


156116 


000165 


BISB 


L2ELT2(R1),(SP) 


034600 


012746 


026630 


MOV 


•L237.-(SP) 


034604 


012746 


000002 


MOV 


♦2.-(SP) 


034610 


010600 




MOV 


SP.RO 


034612 


104414 




TRAP 


CSPNTB 


034614 


062706 


000006 


ACD 


•6.SP 


2079 034620 






PRINTB 


«L238,L2EL0S(R1) 


034620 


016146 


000166 


MOV 


L2EL0S(R1),-(SP) 


034624 


012746 


026672 


MOV 


»L238,-(SP) 


034630 


012746 


000002 


MOV 


♦2.-(SP) 


034634 


010600 




MOV 


SP.RO 


034636 


104414 




TRAP 


CtPNTB 


034640 


062706 


000006 


ADO 


♦6.SP 


2CS0 034644 






PRINTB 


♦L239.L2ELRW(R1) 


034644 


016146 


000170 


MOV 


L2ELRW(R1).-(SP) 


034650 


012746 


026731 


MOV 


•L239.-(SP) 


034654 


012746 


000002 


MOV 


♦2.-(SP) 


034660 


010600 




MOV 


SP.RO 


034662 


104414 




TRAP 


CJPNTB 
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SEQ 54 





054664 


062706 


000006 


AOO 


«6.SP 




094670 






PRINTB 


•L240.L2EL0r(Rl) 




034670 


016146 


000172 


MOV 


L2EL0r(Rl). (SP) 




034674 


012746 


026770 


MOV 


#L240. (SP) 




034700 


012746 


000002 


MOV 


♦2.-(SP) 




034-'04 


010600 




MOV 


SP.RO 




034706 


104414 




TRAP 


CtPNTB 




034710 


062706 


000006 


400 


#6.SP 


20a2 


034714 


000137 


034774 


JMP 


25 » 




034720 


126127 


000134 


000000 10): CMPB 


L2ELrM(Rl).«CNTER 


2084 


034726 


001022 




BNF 


251 


2085 


034730 






PRINTB 


#L241 




034730 


012746 


027027 


MOV 


#L24l.-(SP) 




034734 


012746 


000001 


MOV 


#1. (SP) 




034740 


010600 




MOV 


SP.RO 




034742 


104414 




TRAP 


CIPNTB 




034744 


062706 


000004 


ADD 


«4.SP 


2086 


034-'50 






PRINTB 


#L242.L2ELECCR1) 




034750 


016146 


000140 


MOV 


L2ELEC(R1).-CSP) 




034754 


012746 


027071 


MOV 


♦L242.-(SP) 




054760 


012746 


000002 


MOV 


#2.-(SP) 




034764 


010600 




MOV 


SP.RO 




034766 


104414 




TRAP 


C»PNT8 




034770 


062706 


000006 


AOO 


#6,SP 


2087 


054774 






25$: EXIT 


MSG 




034774 


000167 




.UORO 


J»JMP 




034776 


000000 




.WORD 


L10004 2-. 


2088 












2CS9 


055000 
035000 






ENOMSG 

L10004: 






0350C0 


104423 




TRAP 


C$MSG 



"CONTROLLER ERROR" ERROR LOG ? 
NO. NO ERROR LOG TO PRINT. EXIT 
DUMP "CONTROLLER ERROR" ERROR LOG 
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SEQ 55 



2041 

2092 035002 

2093 035002 

2094 

2095 
2096 
2097 
2098 

2099 035002 



.SBTTL 
STARS 



STATISTICAL REPORT SECTION 



STARS 



.•STATISTICAL REPORT SECTION 

i THESE ARE THE "PRINTS" STATEMENTS USED TO OUW THE LEVEL 2 

: HICROOIAGNOSTIC TEST RESULTS 



STARS 



2100 035002 






STARS 




2101 










2102 035002 






BGNRPT 




035002 






L»RPT: : 




2103 035002 






PRINTS 


«L29,L2BWR1(R1) 


035002 


016146 


000014 


HOV 


L2BWR1(R1),-(SP) 


035006 


012746 


025026 


HOV 


•L29,-(SP) 


035012 


012746 


000002 


MOV 


♦2.-(SP) 


035016 


010600 




MOV 


SP.RO 


035020 


104416 




TRAP 


C»PNTS 


035022 


062706 


000006 


AOO 


♦6.SP 


2104 035026 






PRINTS 


<H.210,L2BUR2(R1) 


035026 


016146 


F\ f\ '«V f\ 

000020 


MOV 


L2BWR2(R1),-(SP) 


035032 


012746 


025073 


MOV 


«L210, -(SP) 


035036 


012746 


000002 


MOV 


♦2, -(SP) 


035042 


010600 




MOV 


SP.RO 


035044 


104416 




TRAP 


C*PNTS 


035046 


062706 


000006 


ADO 


♦6,SP 


2105 035052 






PRINTS 


«L211,L2BRD1(R1) 


035052 


016146 


000024 


MOV 


L2BRD1(R1).-(SP) 


035056 


012746 


025137 


MOV 


«L211. -(SP) 


035062 


012746 


000002 


MOV 


♦2. -(SP) 


035066 


010600 




MOV 


SP.RO 


055070 


1044 1€ 




TRAP 


C»PNTS 


035072 


062706 


000006 


ADD 


♦6.SP 


2106 035076 






PRINTS 


^?12.L2BR02(R1) 


035076 


016146 


A A A A 9 A 

000030 


MOV 


L2BRk2CR1).-(SP) 






A^i; OAT 


nuv 


ju 01 O f CD ^ 


035106 


012746 


000002 


MOV 


«.-(SP) 


035112 


010600 




MOV 


SP.RO 


035114 


104416 




TRAP 


C»PNTS 


035116 


062706 


000006 


AOO 


♦6.SP 


2107 035122 






PRINTS 


«L213,L2SUR1(R1) 


035122 


0^6146 


000034 


MOV 


L2SWR1(R1).-(SP) 


035126 


012746 


025247 


MOV 


«L213.-(SP) 


035132 


012746 


000002 


MOV 


♦2.-(SP) 


035136 


010600 




MCV 


SP.RO 


035140 


104416 




TRAP 


C»PNTS 


C3S142 


062706 


000006 


ADO 


«6.SP 


2108 035146 






PRINTS 


«L214,L2SUR2(R1) 


035146 


016146 


000036 


MOV 


L2SUR2(R1).-(SP) 


035152 


012746 


025313 


MOV 


♦L214.-(SP) 


035156 


012746 


000002 


MOV 


♦2,-(SP) 


035162 


010600 




MOV 


SP.RO 



GLOBAL AREAS MACRO Y05.02 Thursday 
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035164 


104416 






035166 


062706 


i^A A£ 

000006 


21C9 035172 








035172 


016146 


AAAA A A 

000040 




035176 


012746 


AOC1CT 

025357 




035202 


012746 


AA AA AA 

000002 




035206 


010600 






035210 


104416 






035212 


A£ 

062706 


AA AA/\£ 

000006 


2110 035216 










016146 


000042 






012 /4o 


025423 






0- 2746 


AA AAA^ 

000002 






A4 A£AA 

OlOoOO 








4 A4 il C £ 

104416 






SJ9JC0O 


OoZ70o 


AA AAA£ 
000006 


3111 


AYC9A9 








ATC9A9 


A4 £.9 A£. 

016146 


AA AACA 
000050 




ATC9JA 




AOCA t^ 

0254O' 




AX^9''9 
v03C«rfC 


At ^^AC 

012 '4o 


AAAAAO 
000002 




vd3c30 


A1 A£AA 
OlOOOO 






vw3c vV 


104416 






AT^9A9 
vw3cwc 


A£ ^7A£ 

062 rOo 


AAAAAt 
000006 


C ilc 


v53COO 








vw3Cww 


At £t A£ 
01OI4O 


AAAAC3 

000032 




AT'5979 


At 

Ole r40 


023303 




03S976 

v^SC r w 


rtl 97Aft 


AAAA AO 




AYI^t09 


A1 A&AA 








1 f\AA 1 & 
104*10 








A&97Aft 
UOe r UO 


AAAAAt 




03^319 

v^^wXC 


A9fc1 97 


AAA1 9A 


91 Id 


Jew 


AA1 AA9 




91 1 S 
cxxD 


0TST99 


AAA1 T7 

0001 A r 


UOOU3c 


91 1A 
cxxn 












A1 ill 


AAA t AA 
OOUIUU 






AACAA£ 
0030«»O 






V ^ ^ W d*f 


13D110 


AAAACA 






AACAA£ 
OOjOW 








1301 ID 


AAAAtt 






A1 OIAH 


A971 7A 
Uc rloU 






A1 07A^ 


AAAAAA 
OOOOOH 






A 1 At AA 
UIOOUO 






035360 


1 AAA 1 £ 






035362 


A£07A£ 
Ubc ' UO 


AAAA 1 r) 
V< JUUlc 


2117 


035366 








035366 


A1 £1 At 
UlOlnO 


AAA 1 AO 




035372 


AA^AAt 






035374 


13D110 


AAAA^^ 
UUU%/33 




035400 


AA^AAt 
UU jUnO 






035402 


t CC lit 


AAAAt7 




035406 


A1 07At 
01C(4O 


AO 7 O OA 
Uc 1 cc4 




035412 


A1 97At 

Ulc ' *90 


AAAAAA 




035416 


010600 






035420 


104416 






0354^2 


062706 


000012 


2118 


035426 








035426 


016146 


000104 



Jul 85 09:27 



Page 31 1 



SEO 5b 



TRAP C»PNTS 

ADD «6.SP 

PRINTS «L215.L2ECC1(R1) 

nOV L2ECC1(R1). (SP) 

MOV «L215.-{SP) 

MOV ^.-(SP) 

MOV SP.RO 

TRAP C*PNTS 

ADD «6.SP 

PRINTS ♦L216.L2ECC2(R1) 

MOV L2ECC2(R1),-(SP) 

MOV #1216, -(SP) 

MOV W.-CSP) 

MOV SP.RO 

TRAP CIPNTS 

ADD «6.SP 

PRINTS ♦L219,L2REP1(R1) 

MOV L2REP1(R1).-(SP) 

MOV #L219.-(SP) 

MOV W.-CSP) 

MOV SP.RO 

TRAP CIPNTS 

ADD «6.SP 

PRINTS «L220.L2REP2(R1) 

MOV L2REP2(R1).-(SP) 

MOV #1220. -CSP) 

MOV ♦2. -CSP) 

MOV SP.RO 

TRAP CIPNTS 

ADD «6.SP 

CMP 124(R1).#0 

BNE 1$ 

JMP 10$ 

PRINTS #1244. <B .66(R1 )> . <B . 54(R1 ) > , lOOCRl ) 

MOV 100(R1).-(SP) 

CLR -(SP) 

BISB 54(R1).(SP) 

CLR -(SP) 

BISB 66(R1).(SP) 

MOV #L244.-rSP) 

MOV *4.-(SP) 

MOV SP.RO 

TRAP C»PNTS 

ADD «12.SP 

PRINTS ♦L245, <B . 67( Rl ) > . <B . 55(R1 ) > . 102( Rl ) 

MOV 102(R1).-(SP) 

CLR -(SP) 

BISB 55(R1).(SP) 

CLR -(SP) 

BISB 67(R1).(SP) 

MOV «L245.-(SP) 

MOV #4,-(SP) 

MOV SP.RO 

TRAP C$PNTS 

ADD «12.SP 

PRINTS *L246.<B.70(R1)>,<B,56(R1)>.104(R1) 

MOV 104{R1).-{SP) 



ANY DATA COMPARES ? 
YES, LIST THEM 
NO. FINISHED 
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n D 
CLK 


f CD ^ 


035434 


156116 


AAAAC£. 

000056 


DT CD 

BISd 


36(Rl;.(Sr) 


055440 


Ail £ 

005046 




CLR 


f CD ^ 


035442 


4 C£ 4 4 £ 

156116 


AAAA T A 
0000 '0 


DT CO 


7A^ D 4 ^ f CD ^ 

70CK1 ; , C Sr J 


03544© 


012/46 


02 ' 320 


MAU 

HUV 


M OA A r CD ^ 

W.246, -ISr ; 


035452 


012746 


AAA A Ail 

000004 


MAC 

nOV 


Ail r c D ^ 

#4 , -ISr J 


0354 5o 


A 1 A£ AA 
010600 




MAU 

nuv 


CD OA 

5r ,R0 


035460 


1 A^ ^ 1 £ 

104416 




TOAD 


L ♦ r N 1 b 


035462 


A£ ^TAi 

062706 


AAAA 1 9 
000012 


Ann 
HDD 


A1 9 CD 

912. br 


2119 0354e6 






ODTklTC 

rnlNIa 


Al OA 7 ^D 71^D1>x C7rDl^v 4 AA^ D4 ^ 

wL24 ',<D, / llKi;> ,<Di57lRl J> , 106(k1 J 


05546c 


016146 


Art A 1 Ai 

000106 


MAW 

nov 


4AArD4 ^ r CD ^ 

106v n\ 1 , -\sr 1 


0354 / 2 


AAC A AC 

005046 




1*1 D 


f CD ^ 


0354 #4 


1 C£ 1 1 £ 

1561 16 


AAAAC7 
00003/ 




C7 4 ^ f CD ^ 

3 / IKl ^ 1 1 3r j 


035500 


003046 




n D 


r CD ^ 


035502 


1 C& 1 1 & 
156116 


AAAA71 
OOOO (1 


DTCD 


71 toy ^ r CD ^ 


035506 


012 '46 


A97A 1 A 
02 '4 14 


MAU 

nuv 


M 9A7 ^ CD ^ 
wL24 1 , -\3r ) 


035512 


A1 97A£ 

012 '46 


000004 


MAU 

nuv 


, - 1 or J 


U33916 


0106OO 




ni V 


CD DA 
or ilvU 


035520 


1 AAA 1 C 

1044 16 




T ^AD 
1 <nr 


L*rN 1 3 


095522 


062 '06 


000012 


inn 


Al 9 CD 


2120 935526 






OOTMTC 
rnlN 1 3 


Al 9AA 79rD1^% AATDI ^ % 11 AfDI ^ 


035326 


A1 A 1 AA 

016146 


AAA1 1A 


TUV 


1 1 A^DI ^ f CD ^ 


033332 


AACAAA 

003046 




LLK 


_r CD ^ 


U53334 


1 CA 4 1 A 

136116 


AAAAAA 
0U0U60 




AAfOI ^ r CD ^ 


U3334V 


U03U46 




LLffl 


.rcD^ 

-V 3r 7 


035542 


1CA1 1 A 
136116 


AAAA 7 3 
OWOO '2 


RT6B 


79roi ^ r CD ^ 


U33346 


m 97Aft 
Ole '46 


02 r31U 


nuv 


M 94 A - f CD > 


U3333C 


m 97Aft 
Ole '46 


AAAAAA 

ww^J^ 


MAU 

nuv 


MA _rGD^ 

»4 t "Var V 


U3333D 


A1 AAAA 

oloeoo 




MAW 

nuv 


CP PA 
or .nO 


U033OU 


1 AAA 1 A 
104416 




TRAP 


L f r n 1 o 


U033DC 


U6c ' U6 


AAAA 1 3 
OUUU12 


nUU 


Al 9 CD 
vl2i or 


clcl U333DD 






POTMTQ 
rnin 1 o 


M 9AQ <R 7XrP1^> <R AlfPI^^ llSfPII 
vLcn7« '3^nlJ>t^Dt01lnly>all2k KX i 


Uo3 jOb 


A1 A1 AA 


AAA1 1 9 
V00112 


MAU 

nuv 


1 1 9rR1 ^ f CP ^ 


Uo33 1 c 


AACAAA 
UU3U4D 




LLn 


■V Or J 


U033 l4 


1 Q A 1 1 A 
136116 


UU0061 


QTQR 


Ai f oi ^ rcp^ 

DlVKl J ,^ or 7 


U030UU 


AACAAA 
003UH0 




n R 

LLn 


.r QP1 

"V Or J 


033602 


1 CA1 1 A 
136116 


AAAA7T 


a±oO 


7Tf01 1 f QP1 
' 3vnl J t\ Or J 


U036U6 


A1 07AA 
012 ' 46 


A97AAA 
02 r6U4 


MAU 

nuv 


vLa^^, Or J 


Uo3612 


A1 37 AA 
U12 f "to 


AAAAAA 


MAU 

nuv 


M . r CP S 

1 - V Or J 


033616 


A1 AAAA 




MAU 

nuv 


CP DA 
Or t nU 


ATCil 9A 


1 AAA 1 A 
104*H6 




TRAP 


riPNTC 
L*rrl 1 0 


0336cc 


AA37AA 
ODc 'UD 


AAAA 1 9 


Ann 


*i 9 CP 
V 1 c f Or 


clce Uo36c6 






PRTMTC 


al 9Cn <R 7ArP1 1> <R ASfRI ^> IIAfDI^ 
VL23U t^Dt 'H^nl^' a^Dt DcVnl J > i jLlnV Kl J 


003626 


A1 A1 A A 


AAA1 1 A 


MAU 

nuv 


IIATPI'^ ( CD 1 
ll^V Kl J t \ or J 


U33632 


AACAAA 




n R 

LLK 


-f CP 
■V or J 


0336 3n 


1 <;a1 1 A 
130110 


AAAftA9 


D19D 


Aorp 1 ^ f CP 
OevKl J ,\. Or J 


ATCiLAA 
Uo3640 


AACAA A 
003040 




n P 

LLn 


t CD 1 
-VOr ) 


ATC<^A9 
U3364C 


1 ^A 1 1 A 
1301 10 


AAA'»7A 


RTQR 


7Aro 1 > f CD ^ 
'•T^KlyfV Or y 


033640 


A1 07AA 
012 ' 40 


A977AA 

02 1 « uy 


MAU 


M r CD ^ 
wL23Ui or } 


003632 


A1 37 AA 
Olr f 40 


AAAAAA 
WWVWW4 


Mnu 
nuv 


Ad -fCD'^ 
iW , - V Or 7 


U3363D 


A1 AAAA 




Mnu 


CP RA 
or ( nsj 




104416 




TRAP 


C$PNTS 


035662 


0^2706 


000012 


ADO 


♦12. SP 


2x23 035666 






PRINTS 


«L251.<B.75(R1)>.<B.63(R1)>.116(R1) 


035666 


016146 


000116 


lOV 


116(R1).-(SP) 


035f72 


005046 




CLR 


-C SP ) 


035674 


156116 


000063 


BISB 


63(R1).(SP) 
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035700 


005046 




^1 A 


-vSP) 


A* AO 


156116 




D T CO 


75CR1 J ,KOr J 


AVC^A£ 

055 ^Oo 


Ole »46 




nOV 


ju oc 4 CO ^ 


033712 


012746 


000004 


HOV 


Ail r CO 

»4 , - C SP 3 


035716 


A4 A£ AA 

010600 




nOV 


CO OA 

Sr ,R0 


AT C T O A 

035720 


4 Ail Jl 4 C 

104416 




TRUr 


^ * OUT C 


035 icZ 


062 'Oo 


AAAA1 O 


AAA 


A4 O CO 


Zl<4 035 r CD 






DDTklTC 


wL252, <B ,76(R1 J> , <D.64(R1}> , 120(R1 J 


035 'CD 


A1 AC 

016146 


OvQlcO 


MAU 

HOV 


1201 Rl;, -ISP J 


033 1 5d 


AACAA£ 

005046 




n o 
LLK 


f CD ^ 


Oo3 > 3'» 


136116 


UOOvO*» 


DT CQ 


t A r D 4 ^ r CD ^ 

641R1 J , V br J 


ATC7AA 
U33 I'm 


0v5046 




f*l D 

LLK 


r CD 
-I Sr J 


ATC7AO 
U33 '4c 


156116 


AAAA^£. 
OOOO fD 


DTCD 


fcro 4 ^ r CD ^ 


033 '*t) 


012 '46 


06U0 rO 


MAU 

nov 


Al OC O r CD ^ 

wL252 , -I Sr J 


U33 '3e 


Ai o^Ae 
012 r40 


OUUUv4 


MAU 

nuv 


AA fCD^ 

V4, -vSr J 


035 r5e 


A 4 AiL A A 

oiweoo 




MAU 

nuv 


CD DA 


U35 rOv 


1 AAAie 




TDAD 

1 Hnr 




v33 roe 


Ae07A£ 

OOerUO 




Ann 
HI/I/ 


Al 9 CD 

wl2 • ar 


elc3 UdSrOO 






DQTMTQ 


wl.e3di <0 t 1 l\nH> , <0,O3vKl J> , 1221 nl } 


U33 lOO 


AI mAa 

W10140 


AAA1 33 


nuv 


1 99rDf 1 r CD ^ 


U33r re 


AACAAe 
UU3W4D 




n D 

LLn 


r CD ^ 
-I br ^ 


U33i r4 


1361 16 


AAAA^Q 


DTCn 
DlDD 


ec^Di ^ f CD ^ 
63Vnl J iVor J 


1 1 veAAA 
UOOOw 


AACAAiL 






r CD 
-V ar J 




13011D 


UOUU f f 




77rD1 "1 f CD ^ 


AVeAAe 


A1 97 A& 

Ulc r4D 




nuv 


M f CD ^ 

vL253 1 -V 5r J 


vdOUlc 


A1 37 


AAAAA^ 


nuv 


AA rcD^ 
w4 1 - k ar J 


U3DUXO 


VIUDUU 




Mnu 
nuv 


CD OA 

ar tKO 


i'OOvcO 


XU44 XO 




TDAP 

1 nnr 


u ♦ rn 1 a 


AT£AOO 
03oUee 


Ail 97 Ail 


AA AA 1 9 


Ann 

nUU 


A1 O CD 

wle t ar 


>:lcO U3oUco 








Al O^A lOATDI '\ 
vl_234 , le4V nl J 


030vcD 


Ai ei 


AAA1 OA 


nuv 


1 9Af D1 "1 r CD "1 
lc4l KX J « -V ar J 


03D03C 


AI 37A(l 




MAW 

nuv 


Al 9^A r CD 

vLc j4 , ar J 


AYi^AYA 


AI 07A£ 
Ulc '46 


AAAAA3 


nuv 


AO rcD^ 
vc I - 1 ar 1 




VX Vv W 






ar 1 r\w 


C36044 


104416 




TRAP 


C»PNTS 


036046 


062706 


000006 


AOO 


<»6.SP 


2127 036052 






10$: ENORPT 




036052 






LI 0005: 




036052 


104425 




TRAP 


C»RPT 
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SEQ 59 



2129 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

21A1 

2x42 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2164 

2165 036054 
036054 

2166 

2167 036054 
2168 

2169 036060 
036060 
036060 

2170 



.SBTTL GLOBAL SL8R0UTINES SECTION 

Si*************************************************************** 
; ;*************************v **************************** ********* 

iGLOBAL SUBROUTINES SECTION 

; THIS SECTION CONTAINS ALL SUBROUTINES AND 

s INTERRUPT SERVICE ROUTINES THAT ARE AC- 

: CESSED FROM ANYWHERE IN THE PROGRAM. 

;;********************************************************«***** 
***************************************************************** 



i *************************************************************** 
;***************. *********************************************** 

TRAP4 

THE ADDRESS OF THIS ROUTINE IS LOADED 
INTO VECTOR t WHENEVER THE PROGRAM IS 
ATTEMPTING T ) ACCESS A PIECE OF HARDWARt 
FOR THE FIRST TIME. IT IS INTENDED TO 
CATCH NON-E? ISTENT MEMORY TIMEOUTS IN 
THE EVENT T.^E HARDWARE IS NOT REALLY PRE- 
SENT OR IS MALFUNCTIONING. IT SIMPLY 
SETS A FLAG. INDICATING THE TRAP OCCURRED. 

; *************************************************************** 

;*************************************************************** 



BGNSRV TRAP4 

TRAP4: : 



005237 002276 INC TRP4FG jSET THE FLAG - TRAP OCCURRED 

ENDSRV 

L10006: 

000002 RTI 
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SEg 60 



2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 

2195 036062 
036062 

2196 
2197 
2198 
2199 
2200 
2201 

2202 036062 
2203 

2204 036070 

2205 036070 
036070 
036070 

2206 



INTRCV 

THIS IS THE TK50 INTERRUPT HANDLER USED BY THE PPO- 
GRAH WHEN INTERRUPTS HAVE BEEN ENABLED. IF THE 
BRFALG IS CLEAR. THE ROUTIfC SETS A FlAG INDICATING 
THE EXPECTED INTERRUPT OCCURRED. IF BRFLAG IS SET. 
IT INDICATES THAT PROCESOR PRIORITY WAS SET TO A 
LEVEL THAT SHOULD HAVE INHIBITED THE INTERRUPT, SO 
THE ROUTINE SETS AN ERROR INDICATOR. 

; *************************************************************** 

: *************************************************************** 



052764 000002 000014 



000002 



INTRCV: 



i 

5»: 

EXTINT: 
L10007: 



BGNSRV INTRCV 



BIT 
BEQ 
MOV 
BR 

BIS 



ENDSRV 
RTI 



♦BRFLAG. LUNFLG(R4) 
5) 

«DRPFLG.LUNFLG(R4) 
EXTINT 

«NTFLG.LUNFLG(R4) 



ilF NOT PRIORITY LEVEL TESTING 
i THEN SKIP AROUND 
i ELSE SET FAILED BIT 
: RETURN 

;SET THE FLAG 
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SEQ 61 



2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2225 

2226 036072 
03607? 

2227 

2228 036072 

2229 

2230 

2231 036100 
036100 
036100 



052764 000001 000014 



000002 



ILLINT 

THIS HANDLER ROUTINE'S ADDRESS IS LOADED INTO THE 
CURRENT UUT'S VECTOR FOR ALL TESTS THAT DO NOT EN- 
ABLE DEVICE INTERRUPTS. 

i ****** *************** 

; *************************************************************** 



ILLINT: 



LlOOlO: 



BGNSRV ILLINT 



BIS 

ENOSRV 
RTI 



#DRPrLG,LUNFLGcR4) 
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2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2252 

2253 036102 

2254 036102 

036102 012746 000340 
036106 012746 036054 
036112 012746 000004 
036116 012746 000003 
036122 104437 
036124 062706 000010 

2255 036130 005737 177572 

2256 036134 

036134 012727 000001 

036140 000000 

036142 013727 002116 

036146 000000 

036150 005367 177772 

036154 001375 

036156 005367 177756 

036162 001367 

2257 

2258 036164 005737 002276 

2259 036170 001026 

2260 036172 005237 002274 
2261 

2262 036176 005737 172516 

2263 036202 

036202 012727 000001 

036206 000000 

036210 013727 002116 

036214 000000 

036216 005367 177772 

036222 001375 

036224 005367 177756 

036230 001367 

2264 

2265 036232 005737 002276 

2266 036236 001005 

2267 036240 005237 002274 

2268 036244 000402 
2269 

2270 036246 005037 002274 
2271 

2272 036252 

036252 012700 000004 
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SEQ 62 



KTTEST 



THIS SUBROUTINE IS USED BY THE IWT CODE TO 
DETERMINE IF THE MEMORY MANAGEMENT UtilT IS 
PRESENT. IF SO. IT RETURNS A FLAG IN THE 
SET STATE. OTHERUISE THE FAL6 IS CLEAR IN 
UHICH CASE TEST SEVEN IS BYPASSED. 



* ******************************************************** I****** 

KTTEST:: 



NOKT: 
KTEXT: 



SETVEC 


♦VEC4.#TRAP4.#PRI07 sSET UP FQR POSSIBLE NXM 


MOV 


«PRI07.-(SP) 




MOV 


#TRAP4.-(SP) 




MOV 


#VEC4. -(SP) 




MOV 


#3.-(SP) 




TRAP 


CISVEC 




ADD 


fflO.SP 




TST 


MMUSRO 


;ARE YOU THERE. MMU? 


DELAY 


1 


:GIVE NXM TIMEOUT A CHANCE 


MOV 


♦l.(PC)* 




.UORD 


0 




MOV 


L»DLY.(PC)* 




.WORD 


0 




DEC 


-6(PC) 




BNc 


. -4 




DEC 


-22(PC) 




BNE 


. 20 




TST 


TRP4FG 


8 IF NXM OCCURRED 


BNE 


NOKT 


. THEN NO MMU IS PRESENT 


INC 


KTFLAG 


: ELSE SAY UE FOUND 18 BIT SO FAI^ 


TCT 


MMUSR3 


J NOW LOOK FOR 22 BIT MAPPING 


DELAY 


1 


.•GIVE NXM A CHANCE 


MOV 


#1.(PC)* 




.WORD 


0 




MOV 


LJDLY.CPO* 




.UORD 


0 




DEC 


-6(PC) 




BNE 


.-4 




DEC 


-22(PC) 




BNE 


.-20 




TST 


TRP4FG 


:IF NXM OCCURRED 


BNE 


KTEXT 


i THEN 18 BIT IS ALL WE'VE GOT 


INC 


KTFLAG 


s ELSE SAY UF'VE GOT 22 BIT 


BR 


KTEXT 


; AND BRANCH AROUND NEXT 


CLR 


KTFLAG 


sNO MMU - CLEAR FLAG 


CLRVEC 


»VEC4 


! RESTORE VECTOR 


MOV 


«VEC4.R0 
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SEQ 63 



036256 104436 

2273 036260 005037 002276 

2274 036264 000207 
2275 

2276 



TRAP 

CLR 

RTS 



C»CVEC 
TRP4FG 
PC 



;MORE HOUSEKEEPING 
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2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2300 
2301 
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SEQ 64 



RSTVEC 



THIS ROUTINE IS CALLED FROM VARIOUS PLACES 
IN THE PROGRAM TO SET THE UUT'S INTERRUPT 
VECTOR WITH THE ADDRESS OF A HANDLER ROUTINE 
WHICH WILL CATCH ILLEGAL DEVICE INTERRUPTS, 
SPECIFICALLY -ILLINT-. INTERRUPT PRIORITY 
IS SET TO 0. 



2302 
2303 
2304 



036266 
036266 
036266 
036272 
036276 
036302 
036306 
036310 



C.;:/46 
012746 
016446 
012746 
104437 
062706 



000000 
036072 
000004 
000003 

000010 



036314 000207 



RSTVEC : : 

"SETVEC TKVEC(R4),MLLINT,#PRI00 

MOV «PRI00.-(SP) 

10 V MLLINL-CSP) 

MOV TKVEC(R4).-(SP) 

MOV «3,-(SP) 

TRAP CtSVEC 

ADD •lO.SP 

RTS PC 
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SEQ 6S 



2509 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 



VECTOR 



THIS ROUTINE IS CALLED FROM VARIOUS PLACES 
IN THE PROGRAM TO SET THE UUT'S VECTOR MITH 
THE ADDRESS OF A HANDLER ROUTINE UHEN DEVICE 
INTERRlffTS HAVE BEEN ENABLED. THE ROUTINE HAS 
TWO MODES OF OPERATION: WHEN 8RFLA6 IS CLEAR. 
PROCESSOR PRIORITY IS SET TO ZERO, ALLOWING 
DEVICE INTERRUPTS. IF BRFLAG iS SET. PRIORITY 
IS SET TO 7. IF AN INTERRUPT OCCURS IN THIS 
CASE. AN ERROR IS RETURNED BY THE HANDLER 
ROUTINE. "INTRCV". 



2327 












2328 












2332 036316 






VECTOR: 






2333 036316 


032764 


000004 


000014 


BIT 


«eRFLAG.LUNFLG(R4) i 


2334 036324 


001014 






BNE 


5» ; 


2335 036326 








SETVEC 


TKVECC R4 ) . «INTRCV , OPRIOO 


036326 


012746 


000000 




MOV 


OPRIOO.-(SP) 


036332 


012746 


036062 




MOV 


«INTRCV,-(SP) 


036336 


016446 


000004 




MOV 


TKVECC R4}.-(SP} 


036342 


012746 


000003 




MOV 


♦3.-(SP) 


036346 


104437 






TRAP 


CISVEC 


036350 


062706 


000010 




ADD 


♦10. SP 


2336 036354 


000413 






BR 


EXTVEC ; 


2337 












2338 036356 






5): 


SETVEC 


TKVECC R4 ) . MNTRCV . ♦PRI07 


036356 


012746 


000340 




MOV 


♦PRI07.-(SP) 


036362 


012746 


036062 




MOV 


♦INTRCV. -(SP) 


036366 


016446 


000004 




MOV 


TKVEC(R4).-(SP) 


036372 


012746 


000003 




MOV 


♦3.-(SP) 


036376 


104437 






TRAP 


CISVEC 


036400 


062706 


000010 




ADD 


♦10. SP 


2339 












2340 036404 


000207 




EXTVEC: 


RTS 


PC 



THEN SKIP TO SECOND HALF 
tELSE LOU PRIORITY 



:HIGH PRIORITY 



2341 
2342 
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2547 
r348 

2550 
2551 
2552 
2555 
2554 
2555 
2556 
2557 
2iS8 
2559 
2560 
2561 
2562 
2565 
2564 
2569 
2569 

2570 056406 
C56406 
^64 12 
0?6416 
0!'>420 
2375 036424 
2S"'6 036426 
25''7 036432 
2S79 
2379 
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SEO 66 



POELAY 

THIS ROUTINE IS USED THROUGHOUT THE PROGRAM TO PROVIDE 
A VARIABLE AMOUNT OF DELAY TIME. THE DELAY WILL BE 
INSTRUCTION EXECUTION TH« DEPENDENT. TWO VALUES MUST 
BE LOADED BY MAINLINE CODE PRIOR TO CALLING PDELAY: 
"INNER" AND "OUTER". IF SUFPICIENT CALLS TO PDELAY ARE 
MADE SUCH THAT THE OUTER COUNT IS EXHAUSTED. THE ROUTINE 
RETURNS "TOUT' EQUAL TO 1. INDICATING TIMEOUT HAS OCCURRED. 
"INNER" SHOULD BE RE-LOADED BY MAINLINE CODE. PRIOR TO 
CALL TO POELAY WITHIN A TIMING LOOP. 



2? 
2' 

2y 



005037 002330 
005337 002524 
001375 

005337 002326 
001002 

005237 002550 
000207 



POELAY:: 

CLR 
DEC 
BNE 
DEC 
BNE 
INC 

POLYEX: RTS 



TOUT 

INNER 

PDELAY 

OUTER 

PDLYEX 

TOUT 

PC 



CLEAR TIMEOUT INDICATOR 
IF COUNT NOT EXHAUSTED 

THEN KEEP LOOPING 
IF MAJOR COUNT NOT 0 

THEN LEAVE WITH STATUS 

EuSE SET TIMEOUT 



OK 
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2384 

23as 

2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 

2405 036434 

2406 036434 

2407 03644C 

2408 036446 
036452 
036454 
036460 
036462 
036466 
036470 
036474 

2409 

2410 036476 

2411 036504 
2412 

2413 036512 

2414 036514 

2415 036522 

2416 036524 

2417 036532 

2418 036534 
2419 

2420 036542 

2421 036550 
2422 

2423 036552 
2424 

2425 036556 
2426 
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SEG 67 



002320 
030000 
000001 

002116 

177772 

177756 



005037 
012T74 
012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 

017464 
022764 

001413 
022764 
001013 
022737 
002003 
012737 

013774 
000402 



005237 002320 
000207 



sSTEPl 



THIS SUBROUTINE IS RESPONSIBLE FOR PERFORflING 
STEP 1 OF THE UQ PORT INIT SEQUENCE. SPECIFI- 
CALLY. IT UILL INITIALIZE THE UUT BY WRITING 
TO ITS IP REGISTER. AFTER A BRIEF DELAY, IT 
UILL READ THE SA REGISTER TO INSURE THAT THE 
STEP 1 BIT IS SET AND THE ERROR BIT IS CLEAR. 
IT UILL THEN URITE THE FIRST LOCATION OF THE 
STEP TABLE (SET UP BY MAINLINE CODE) TO THE 
UUT'S SA REG. IF ALL STEPS COMPLETE SUCCESS 
FULLY THE ROUTINE RETURNS "STEPST' CLEARED: 
OTHERUISE "STEPST" IS RETURNED INDICATING A 
FAILURE OCCURRED. 



STEPl: 





CLR 


STEPST : CLEAR THE STATUS INDICATOR 


000000 


MOV 


<>0.aTKIP(R4) jINIT THE UUT 




MOV 


♦i.CPO* 




.UORO 


0 




MOV 


L$DLY.CPC)* 




.UORD 


0 




DEC 


-6(PC) 




BNE 


.-4 




DEC 


-22( PC) 




BNE 


.-20 


000012 


MOV 


8TKSA(R4),TKSASV(R4) :GET THE SA REG CONTENTS 


000012 


CMP 


«6.S1*!;.(»!B.DI!B.0D!B.MP.TKSASVCR4) 




6EQ 


It :IF QBUS, BRANCH 


000012 


CMP 


«4700.TKSASV(R4) ;IF NOT UNIBUS 




BNE 


STPIER ! THEN TAKE ERROR EXIT 


002120 


CMP 


«7776.L»HIME ; ELSE IF LESS THAN OR EQUAL 




6GE 


It : THEN BRANCH 


002120 


MOV 


*7776.LJHIME : ELSE SET UP L$HIME 


000002 1$: 


MOV 


STPTBL.aTKSA(R4): URITE HOST'S STEP 1 RESPONSE 




BR 


STPIEX : AND LEAVE SHOUING SUCCESS 



STPIER: INC 
STPIEX: RTS 



STEPST 
PC 



iSET ERROR INDICATOR 
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2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 



Thursday 25- Jul -85 09:27 Paye 40 



SEQ 68 



BAKPAT 



THIS SUBROUTINE WILL FILL THE COMMUNICATION WITH AN 
ALL I'S DATA PATTERN. THE LENGTH OF THE AREA IN USE 
BY THE CURRENT TEST IS CONTAINED IN "CMARLG-. 



2440 












2444 












2445 


036560 






3AKPAT : : 




2446 


036560 


012702 


060000 


MOV 


#C0MMBF,R2 


2447 










2448 


036564 


012703 


000024 


MOV 


«20. ,R3 


2449 


036570 


006303 




ASL 


R3 


3450 


036572 


063703 


002306 


ADO 


CMARLG, R3 


2451 


036576 


012722 


177777 


1): MOV 


♦-l.(R2)» 


2452 


036602 


00530a 




DEC 


R3 


2453 


036604 


001374 




BNE 


1) 


2454 












2455 


036606 


000207 




RTS 


PC 



J STARTING ADDRESS OF COMM AREA 
i-20 WORDS 

;BUFrER LENGTH IN FRONT OF AREA 

;MULTIPLIED BY 2 

:ADD COMM AREA LENGTH USED 

;WR1TE THE DATA 

ilF NOT DONE YET 

; THEN DO IT AGAIN 



2456 
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SEQ 69 



2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2475 
2474 
2478 

2479 036610 

2480 036610 

2481 036614 

2482 036620 

2483 036624 

2484 036626 

2485 036630 

2486 036632 
2487 

2488 036634 

2489 03f«636 

2490 036642 

2491 036644 

2492 036646 

2493 036650 
2494 

2495 036652 

2496 036656 

2497 036662 

2498 036664 

2499 036666 

2500 036670 

2501 036672 
2502 

2503 036674 

2504 036700 

2505 036706 

2506 036710 
036710 
036712 
036714 
036716 

2507 036720 
2508 

2509 036722 
036722 
036724 
036726 
036730 

2510 

2511 036732 
036732 



012701 177777 

012702 060000 

012703 000022 
020122 
001022 
005303 
001374 

005001 

013703 002306 

005722 

001013 

005303 

001374 

012701 177777 

012703 000024 

020122 

001003 

005303 

001374 

000422 

162702 000002 

022737 000010 002114 

001405 

104455 
000001 
030677 
033022 
000404 



104455 
000002 
030726 
033046 



013700 002312 



CHKCOM 

THIS ROUTINE IS CALLED BY TESTS DOING THE PURGE/POLL 
CHECK. IT IS USED TO VERIFY THAT THE PORT LEFT THE 
COriMl^ICATIONS AREA CLEARED. ADDITIONALLY. IT CHECKS 
THE 20 WORDS PRECEDING AND SUCCEEDING THE COMM AREA 
TO MAKE SURE THE PORT DIDN'T GO OUTSIDE THE COMM AREA. 

• *************************************************************** 

CHKCOM: : 



1$; 



5$: 



10$ I 



15): 



20$: 



25): 



MOV 


#-l.Rl 


TEST DATA 


MOV 


ffCOMMBF , R2 


STARTING ADDRESS 


MOV 


«18. ,R3 


FIRST COUNT 


CMP 


R1,(R2)* 


IF NOT ALL 1' S 


BNE 


15) 


THEN GO REPORT ERROR 


DEC 


R3 


IF NOT ALL DONE 


BNE 


1) 


THEN GO CHECK ANO'iHER 


CLR 


Rl 


TEST DATA FOR PRINTOUT 


MOV 


CMARLG,R3 


SET UP COUNTER FOR COMM AREA 


TST 


(R2)* 


IF NOT 0 


BNE 


15) 


THEN GO REPORT ERROR 


DEC 


R3 


IF NOT ALL DONE 


BNE 


5) 


THEN GO CHECK ANOTHER 


MOV 


#-l.Rl 


TEST DATA FOR PRINTOUT 


MOV 


«20. .R3 


SET UP COUNTER FOR POST COMM AREA 


CMP 


R1.(R2)* 


IF NOT ALL I'S 


BNE 


15) 


THEN GO REPORT ERROR 


DEC 


R3 


IF NOT ALL DONE 


BNE 


10) 


THEN GO CHECK ANOTHER 


BR 


CKCMkX 


ELSE RE'URN 


SUB 


#2.R2 


ADJUST ADDRESS FOR PRINTOUT 


CMP 


#8.,L)TEST 


IF IN TEST 8 


BEQ 


20) 


THEN DO ALTERNATE PRINTOUT 


ERRDF 


l.EMSG14,PRIPAD 


"PURGE/POLL TEST FAILED" 


TRAP 


OERDF 




.WORD 


1 




.WORD 


EMSG14 




.UORD 


PRIPAD 




BR 


25) ; COMMON EXIT 


ERRDF 


2.EMSG15.PRIVAD 


"EXTENDED ADDRESS TEST FAILED" 


TRAP 


OERDF 




.WORD 


2 




.WORD 


EMSG15 




.WORD 


PRIVAD 




DODU 


LOGUNT 




MOV 


LOGUNT.RO 
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SEQ 70 



036736 104451 

2512 

2513 036740 000207 
2514 



TRAP CtOOOU 
CKCflEX: RTS PC 
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SEQ 71 



2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2541 

2542 036742 

2543 036742 

2544 036746 

2545 036752 
2546 

2547 036754 

2548 036756 

2549 036762 

2550 036766 

2551 036772 
2552 

2553 036774 

2554 037000 

2555 037006 

2556 037014 

2557 037016 

2558 037024 
2559 

2560 037032 

2561 037040 
2562 

2563 

2564 037042 

2565 037042 

2566 037046 

2567 037052 

2568 037056 

2569 037062 

2570 037070 

2571 037072 

2572 037074 

2573 037076 

2574 037102 

2575 037104 

2576 037112 
037112 
037114 



012703 
012702 
005001 

010122 
012723 
062701 
022701 
001370 

010137 
012737 
032737 
001406 
012737 
01^737 

012737 
000207 



010174 
012703 
012701 
005037 
012737 
005002 
005202 
001016 
005337 
001013 
017464 

104455 
000063 



; ******************************** *4 ****************** *********** 
• ************************************** *«**«««***«,ik************* 

INTMMU 

THIS SUBROUTINE IS CALLED FROM TEST 8 TO INITIALIZE 
MEMORY MANAGEMENT REGISTERS. ALL PAR'S EXCEPT ONE 
ARE SET UP TO MAP VIRTUAL ADDRESSES INTO THE LOWEST 
32K OF PHYSICAL MEMORY. KPAR7 IS SET UP TO MAP TO 
THE I/O PAGE. THE PAR REGISTER THAT CORRESPONDS TO 
THE VIRTUAL ADDRESS OF THE COMMUNICATION AREA IS SET 
UP TO POINT TO THE SECOND 32K OF PHYSICAL MEMORY. 
ALL PDRS ARE INITIALIZED TO THE SAME VALUE; NAMELY. 
UPWARD EXPANDABLE, READ/ WRITE ACCESS ENABLED, AND THE 
FULL 8KBYTE PAGE IS ACCESSIBLE. 

s *************************************************************** 

;************************************************************««« 



172300 
172340 



077406 
000200 
002000 



172346 
007600 
000002 

177600 
000020 



INTMMU: 



1)1 



172356 
002274 

172356 
172516 



000001 177572 2»! 



MOV 


»KPDR0,R3 


MOV 


»KPAR0.R2 


CLR 


Rl 


MOV 


R1,(R2}* 


MOV 


♦77406, (R3)* 


ADD 


«200,R1 


CMP 


#2000, Rl 


BNE 


1) 


MOV 


R1.KPAR3 


MOV 


♦7600,KPAR7 


BIT 


«IT1.KTFLAG 


BEQ 


2$ 


MOV 


♦177600, KPAR7 


MOV 


«MM220N,MMUSR3 


MOV 


««MON,MMUSRO 


RTS 


PC 



; START OF PDR ADDRESS RANGE 
; START OF PAR ADDRESS RANGE 
i STARTING RELOCATION VALUE 

iLOAD RELOCATION VALUE 
:LOAD PDR 

(ADJUST RELOCATION VALUE 

sIF NOT AT THE END 

: THEN DO ANOTHER ONE 

I ELSE SET THIS REG TO MEXT 32K 

!l8 BIT I/O PAGE 

;IF 22 -BIT BUS NOT AVAILABLE 

; THEN GO TURN MMU ON 

! ELSE SET 22 BIT I/O PAGE 

; AND ENABLE 22 BIT MAPPING 

;TURN ON THE WHOLE THING 



000000 
037264 
004000 
002316 

000030 003024 



003024 

000002 000012 



PRTINT:; 



LOOP: 
ILOOP: 



MOV 


R1.8TKIP(R4) 


INITIALIZE THE DRIVE 


MOV 


♦INTTBL.RS 


PUT THE TABLE ADDRESS INTO R3 


MOV 


♦Sl.Rl 


SET UP TO BEGIN AT SlEP 1 


CLR 


INISTP 


CLEAR THE STEP TRACKER 


MOV 


♦24, .CNTHI 


SET UP THE TIME OUT COUNTER 


CLR 


R2 


CLEAR R2 


INC 


R2 


INCREMENT HI TIME OUT VALUE ? 


BNE 


21 


IF NOT, BRANCH -^^ 


DEC 


CNTHI 


ELSE, DECREMENT LO TIMEOUT 


BNE 


2»" 


BRANCH IF NO TIME OUT 


MOV 


aTKSA(R4),TKSASV(R4) 


SAVE THE SA FOR THE ERROR PRINTOUT 


ERRDF 


51.,WRER1,WRINT0 


PRINT PORT INIT FAILURE 


TRAP 


CJERDF 




.WORD 


51 
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037116 
037120 


032347 
033176 








.WORD 
.UORO 


URERl 
URINTO 


2577 037122 










DODU 


LOGUNT 


037122 


013700 


002312 






MOV 


LOGUNT.RO 


037126 


104451 








TRAP 


C$OOOU 


2578 037130 


000454 








BR 


100$ 


2579 037132 


037401 


000002 




2): 


BIT 


8TKSA(R4}.R1 


2580 037136 


001755 








BEQ 


ILOOP 


2581 037140 


032774 


100000 


000002 




BIT 


«ERR,8TKSA(R4} 


2582 037146 


001413 








BEQ 


3» 


2533 037150 


017464 


000002 


000012 




MOV 


8TKSA(R4},TKSASV(R4) 


2584 037156 










ERRDF 


52..URER2.URPRTE 


037156 


104455 








TRAP 


C$ERDF 


037160 


000064 








.UORO 


52 


037162 


032401 








.UORO 


URER2 


037164 


033222 








.UORO 


URPRTE 


2585 037166 










DODU 


LOGUNT 


037166 


013700 


002312 






MOV 


LOGUNT.RO 


037172 


104451 








TRAP 


C$OOOU 


2586 037174 


000432 








BR 


loot 


2587 037176 


005237 


002316 




3$: 


INC 


INISTP 


2588 037202 


012374 


000002 






MOV 


(R3}«.8TKSA(R4} 


2589 037206 


006301 








ASL 


Rl 


2590 037210 


100324 








BPL 


LOOP 


2591 037<;12 


012702 


003004 






MOV 


«RSPRNG,R2 


2592 037216 


012703 


002574 






MOV 


#RSPBUF,R3 


2593 037222 


010322 






5$: 


MOV 


R3.(R2)* 


2594 037224 


012722 


100000 






MOV 


«]UN,(R2)* 


2595 037230 


062703 


000104 






ADU 


*RSPSTP.R3 


2596 037234 


022703 


003004 






CMP 


«RSPEND,R3 


2597 037240 


001370 








BNE 


5» 


2598 037242 


012737 


003004 


023040 




MOV 


#RSPRNG,RSPSAV 


2599 037250 


012737 


003014 


023036 




MOV 


»CM0RNG,CMDSAV 


2600 037256 


005037 


003032 






CLR 


CMDREF 


2601 037262 


000207 






loot: 


RTS 


PC 


2602 














2603 








;INIT 


DATA TABLE 


2604 037264 


104400 






INTTBL 




.WORD 104400 


2605 037266 


003004 










.UORO RSPRNG 


2606 037270 


000000 










.UORO 0 


2607 037272 


000001 










.UORO GO 



SEQ 72 



:DROP THE UNIT 



EXIT ROUTINE 

TEST FOR STEP BIT FROM DRIVE 

LOOP UNTIL SOMETHING SETS 

CHECK FOR ERROR 

NO ERROR. KEEP POINl, 

SAVE THE SA CONltNTS 

PRINT ERROR 



;DROP THE UNIT 



EXIT ROUTINE 

INCREMENT THE STEP TRACKER 

URITE UORO FROM TABLE TO CONTROLLER 

SHIFT TO NEXT STEP 

IF NOT AT LAST STEP LOOP 

PUT THE RESPONSE DESCRIPTOR ADD IN P' 

PUT THE RESPONSE BUFFER ADDRESS IN Rj 

PUT THE BUFF ADD IN THE DESCRIPTOR 

SET THE DESCRIPTOR TO THE CONTROLLER 

STEP TO THE NEXT BUFFER SLOT 

ARE UE AT THE END OF THE BUFFER ? 

NO. KEEP GOPIG 

SET UP TO USE FIRST RESPONSE BUFFER 
SET UP TO USE FIRST COMMAND BUFFER 
SET THE COMMAND REFERENCE # TO 0 
RETURN 
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2609 037274 








CLSDRV: 


: 


2610 037274 


005237 


003032 




5t: 


INC 


2611 037300 


004737 


037632 






JSR 


2612 037304 


032764 


000001 


000014 




BIT 


2613 037312 


001146 








BNE 


2614 037314 


004737 


037774 






JSR 


2615 037320 


032764 


000001 


000014 




BIT 


2616 037326 


001140 








BNE 


2617 037330 


012702 


024035 






nov 


2618 037334 


005763 


000012 






TST 


2619 037340 


001463 








BEQ 


2620 037342 


032764 


000010 


000014 


7»: 


BIT 


2521 037350 


001047 








BNE 


2622 037352 


022705 


002406 






CMP 


2623 037356 


001024 








BNE 


2624 037360 


122763 


000003 


000012 




CMPB 


2625 037366 


001003 








BNE 


2626 037370 


012702 


024214 






MOV 


2627 037374 


000415 








BR 


2628 037376 


122763 


000043 


000012 


8»: 


CMPB 


2629 037404 


001003 








BNE 


2630 03740b 


012702 


024265 






MOV 


2631 037412 


000406 








BR 


2632 037414 


122763 


000103 


000012 


9*: 


CMPB 


2633 037422 


001012 








BNE 


2634 037424 


012702 


024265 






MOV 


2635 037430 








lot: 


ERRDF 


037430 


104455 








TRAP 


037432 


000071 








.WORD 


037434 


032422 








.UORO 


037436 


0332S6 








.UORO 


2636 037440 










DOCU 


037440 


013700 


002312 






MOV 


037444 


104451 








TRAP 


2637 037446 


000470 








BR 


2638 037450 








11*: 


ERRDF 


037450 


104455 








TRAP 


037' 52 


000072 








.UORO 


037454 


032546 








.UORO 


037456 


033256 








.UORD 


2639 037460 










DODU 


037460 


013700 


002312 






MOV 


037464 


104451 








TRAP 


2640 037466 


000460 








BR 


2641 037470 








12): 


ERRQP 


037470 


104455 








TRAP 


037472 


000073 








.UORD 


037474 


032614 








.UORD 


037476 


033256 








.UORD 


2642 037500 










OOOU 


037500 


013700 


002312 






MOV 


037504 


104451 








TRAP 


2643 037506 


000450 








BR 


2644 037510 


022705 


002456 




15* : 


CMP 


2645 037514 


001035 








BNE 


264o 037516 


126327 


000014 


000113 




CMPB 


2647 037524 


001341 








BNE 



Page 43 



SEQ 



CMDREF 
PC.PRTORV 
•0RPFLG.LUNFLG(R4) 
100* 

PC.CDRECV 

«)RPFLG.LUNFLG(R4) 

100* 

«UR2,R2 

P.STS(R3) 

15* 

•DUf'FLG.LUNFLG{R4) 
12* 

«0NLINE,R5 
10* 

#3.P,STS(R3) 
8* 

*UR7,R2 
10* 

♦43.P.STS(R3) 
9* 

9UR8.R2 
10* 

#103.P.STS(R3) 
11* 

«UR8.R2 

57..URER3.URCMDE 

C*ERDF 

57 

URER3 

URCMDE 

LOGUNT 

LOGUNT.RO 

C*DODU 

100* 

58. .URER7. URCMDE 

C*ERDF 

58 

URER7 

URCMDE 

LOGUNT 

LOGUNT.RO 

C»OODU 

100* 

59.. URER8, URCMDE 

C*ERDF 

59 

URER8 

URCMDt 

LOGUNT 

LOGUNT.RO 

C*DODU 

100* 

»G0UST,R5 
20* 

P.EXT1(R3).*113 
10* 



iADO 1 TO THE COMMAND REFERENCE NUMBER 

:G0 SEND THE COMMAND 

ilS THE ORIVE AVAILABLE 

;GET OUT IF NOT AVAILABLE 

iGO CHECK FOR ANY NEU RESPONSES 

:IS THE DRIVE AVAILABLE 

iGET OUT IF NOT AVAILABLE 

iR2 GETS ERROR MESSAGE ADDRESS 

:UAS STATUS "NORMAL"? 

:YES - BRANCH 

s IS IT A DUP COMMAND ? 

:YES, PRINT DUP ERROR 

:IS IT AN ONLINE COMMAND 

iNO, GO PRINT ZRROR 

iUAS IT A UNIT UNKNOUN ERROR 7 

;N0, CONTINUE 

iR2 GETS ERROR MESSAGE ADDRESS 
; PRINT ERROR MESSAGE 
;UAS IT A NO MEDIA MOUNTED ERROR ? 
jNO. CONTINUE 

;R2 GETS ERROR MESSAGE ADDRESS 

: PRINT ERROR MESSAGE 

jUAS IT A UNIT INOPERATIVE ERROR ? 

;N0. MUST BE INVALID STATUS 

;R2 GETS ERROR MESSAGE ADDRESS 

jGET READY TO PRINT FAILURE 



;DROP THE UNIT 



iGET our ON ERROR 

jGET READY TO PRINT FAILURE 



iOROP THE UNIT 



jGET OUT ON ERROR 

iGET READY TO PRINT FAILURE 



iOROP THE UNIT 



GET OUT ON ERROR 

UAS IT A GET DUST STATUS COMMAND ? 
NO, CONTINUE 

1ST BYTE OF PROGRAM EXTENSION « "K" ? 
NO. ERROR 
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264a 037526 


126327 


000015 


000065 




CHPB 


P.EXT2CR3).#65 


2649 037534 


001335 








SHE 


10$ 


2650 037536 


126327 


000016 


000060 




CMPB 


P.EXT3(R3).«60 


2651 037544 


001331 








BNE 


10$ 


2652 037546 


126327 


000017 


000007 




CHPB 


DUSTFLCR3).#7 


2653 037554 


001325 








BNE 


10$ 


2654 037556 


026327 


000020 


000000 




CHP 


P.IN01CR3).«0 


2655 037564 


001321 








BNE 


10$ 


2656 037566 


026327 


000022 


000000 




CMP 


P.IND2(R3).«0 


2657 037574 


001315 








BNE 


10$ 


2658 037576 


026327 


000024 


000012 




CMP 


TinOUT(R3),*12 


2659 037604 


001311 








BNE 


10$ 


2660 037606 


000405 








BR 


30$ 


2661 037610 


022705 


002524 




20$: 


CMP 


*RCVDAT.R5 


2662 037614 


001002 








BNE 


30$ 


2663 037616 


004737 


040224 






JSR 


PC,L2DATA 


2664 037622 


005337 


002272 




30$: 


DEC 


ITRCNT 


2665 037626 


001222 








BNE 


5$ 


2666 037630 


000207 






100$ : 


RTS 


PC 


2667 














2668 037632 








PR TOR V: 


'• 




2669 037632 


0137C1 


023036 






MOV 


CMOS A V. PI 


2670 037636 


013765 


003032 


000000 




MOV 


CMOREF.P.CRFCRS) 


2671 037644 


112765 


000002 


177776 




MOVE 


#2,CRD(R5) 


2672 037652 


032764 


000010 


000014 




BIT 


♦OUPFLG . LUNFLG(R4 ) 


2673 037660 


001404 








6EQ 


1$ 


2674 037662 


112765 


000002 


177777 




MOVB 


*2.C0NID(R5) 


2675 037670 


000403 








BR 


2$ 


2676 037672 


112765 


000001 


177777 


1$ : 


MOVB 


#1 ,C0NID(R5) 


2677 037700 


010511 






2$ : 


MOV 


RS.CRl) 


2678 037702 


012761 


100000 


000002 




MOV 


*0WN,HIADDRCR1) 


2679 037710 


005774 


000000 






TST 


aTKIP(R4) 


2680 037714 


005774 


000002 






TST 


8TKSA(R4) 


2681 037720 


100013 








BPL 


10$ 


2682 037722 


017464 


000002 


000012 




MOV 


aTKSA(R4),TKSASV(R4) 


2683 037730 










ERRDF 


53. ,WRER4,URPRTE 


037730 


104455 








TRAP 


C$ERDF 


037732 


000065 








.WORD 


53 


037734 


032450 








.WORD 


URER4 


037736 


033222 








.WORD 


URPRTE 


2684 037740 










DOOU 


LOGUNT 


037740 


013700 


002312 






MOV 


LOGUNT.RO 


037744 


104451 








TRAP 


C$DODU 


2685 037746 


000411 








BR 


100$ 


2666 037750 


062701 


000004 




10$: 


ADD 


ORNGSTP.Rl 


2687 037754 


022701 


AA 

003024 






CHr 


vOoCEND.Rl 


2688 037760 


001002 








BNE 


15$ 


2689 037762 


012701 


003014 






MOV 


#CM0RNG,R1 


2690 037766 


010137 


023036 




15$: 


MOV 


Rl.CMDSAV 


2691 037772 


000207 






100$: 


RTS 


PC 



SEQ 74 



2ND BYTE or PROGRAM EXTENSION • '5 ? 
NO. ERROR 

3R0 BYTE OF PROGRAM EXTENSION • '0" ? 
NO. ERROR 
FLAGS • 7 7 
NO ERROR 

1ST UORD OF PROGRESS INDICATOR • 0 ? 
NO. ERROR 

2ND UORD OF PROGRESS INDICATOR • 0 ? 
NO. ERROR 

TIMEOUT VALUE - 12 ? 

NO. ERROR 

NO ERRORS. RETURN 

lUAS IT A RECEIVE DATA COMMAND? 

;N0, CONTINUE 

;YES, GO READ DIAGL2 PROGRAM STATUS 
iSUBTRACT 1 FROM TIMES TO DO 
iGO SEND IT AGAIN 
; RETURN 



SET UP COMMAND RING POINTER 

PUT COMMAND REFERENCE * INTO PACKET 

PUT THE CREDIT LIMIT INTO THE PACKET 

IS IT A DUP COMMAND? 

NO. CONNECTION TYPE ■ 1 

YES. CONNECTION TYPE • 2 

CONTINUE 

PUT THE CONNECTION TYPE INTO THE PACKET 
PUT THE PACKET ADDRESS INTO THE DESCRIPTOR 
SET THE OWNERSHIP BIT OF THE DESCRIPTOR 
READ THE IP REGISTER 
READ THE SA REGISTER 
BRANCH IF NO ERRORS 
SAVE THE SA FOR THE ERROR PRINTOUT 
PRINT PORT DETECTED ERROR 



sDROP THE UNIT 



GET OUT 

ADJUST RESPONCE POINTER FOR NEXT TIME 

ARE WE AT THE END ? 

NO, GET OUT 

SET Rl TO TOP BUFFER 

SAVE THE COMMAND RING LOCATION 

RETURN 
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2693 037774 








CORECV: 


: 


2694 037774 


004737 


040102 




11: 


JSR 


2695 040000 


032764 


000001 


000014 




BIT 


2696 040006 


001034 








BNE 


2697 040010 


011103 








«0V 


2698 040012 


026365 


000000 


000000 




CMP 


2699 040020 


001015 








BNE 


2700 040022 


012761 


100000 


000002 




MOV 


2701 0^0030 


062701 


000004 






ADO 


2702 040034 


0. 2701 


003014 






CMP 


2703 040040 


001002 








BNE 


2 704 040042 


012701 


003004 






MOV 


2705 040046 


010137 


023040 




15$: 


MOV 


2706 040052 


000412 








BR 


2707 040054 


012737 


032640 


002310 


lOi: 


MOV 


2708 040062 










ERRDF 


040062 


104455 








TRAP 


040064 


000070 








.WORD 


040066 


032474 








.WORD 


040070 


033410 








.UORD 


2709 040072 










DOOU 


040072 


01?700 


002312 






MOV 


040076 


104451 








TRAP 


2710 040100 


000207 






100$: 


RTS 


2711 












2712 












2713 












2714 040102 








PORECV: 




2715 040102 


013701 


023040 






MOV 


2716 040106 


012737 


000225 


003024 


11: 


MOV 


2717 040114 


005002 








CLR 


2718 040116 


005202 






5J: 


INC 


2719 040120 


001013 








BNE 


2720 040122 


005337 


003024 






DEC 


2721 040126 


001010 








BNE 


2722 040130 










ERROF 


040130 


104455 








TRAP 


040132 


000066 








.WORD 


040134 


032525 








.WORD 


040136 


033466 








.WORD 


2723 040140 










DOOU 


040140 


013700 


002312 






MOV 


040144 


104451 








TRAP 


2724 040146 


000425 








BR 


2725 040150 


017464 


000002 


000012 


10$: 


MOV 


2726 040156 


005764 


000012 






TST 


2727 040162 


100013 








BPL 


2728 040164 


012737 


032640 


002310 




MOV 


2729 040172 










ERROF 


040172 


104455 








TRAP 


040174 


000067 








.WORD 


040176 


030465 








.UORD 


040200 


033222 








.WORD 


2730 040202 










DOOU 


040202 


013700 


002312 






MOV 


040206 


104451 








TRAP 


2731 040210 


000404 








BR 
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SEQ 75 



PC.PDRECV 

#0RPFLG.LUN^LG(R4; 

100$ 

(R1).R3 

P.CRF(R3).P.CRF(R5) 
10$ 

«0UN,HIADDR(R1) 
#RNGSTP,R1 
9CM0RNG.R1 
15$ 

#RSPRNG.R1 

Rl.RSPSAV 

100$ 

*CTRL,FRUIS 

56. .URERS.URSEQE 

C$ERDF 

56 

URER5 

URSEQE 

LOGUNT 

LOGUNT.RO 

C$DOOU 

PC 



CALL PORT DRIVER RECEIVE 

IS THE DRIVE AVAILABLE 

GET OUT IF NOT AVAILABLE 

SET UP RESPONCE BUFFER POINTER 

IS THIS THE COMMAND THAT IS EXPECTED • 

GET OUT IF WRONG RESPONCE 

GIVE THE CONTROLLER THE RING BACK 

ADJUST RESPONCE POINTER FOR NEXT TIME 

ARE UE AT THE END ? 

NO. GET OUT 

SET Rl TO TOP BUFFER 

SAVE THE POINTER FOR NEXT TIME 

:PRINT CONTROLLER ERROR 

i PRINT COMMAND OUT OF SEQUENCE ERROR 



;DROP THE UNIT 
{RETURN 



RSPSAV.Rl 

#225.CNTHI 

R2 

R2 

10$ 

CNTHI 

10$ 

54. .WRER6.URT0E 

C$ERDF 

54 

URER6 

URTOE 

LOGUNT 

LOGUNT.RO 

C$DODU 

100$ 

STKSA(R4},TKSASV(R4} 

TKSASV(R4) 

20$ 

♦CTRL.FRUIS 

55..EMSG9.URPRTE 

C$ERDF 

55 

EMSG9 

URPRTE 

LOGUNT 

LOGUNT.RO 

C$DODU 

100$ 



PUT THE RESPONSE RING SAVE IN Rl 
SET UP THE TIME OUT COUNTER 
CLEAR R2 

INCREMENT HI TIME OUT VALUE ? 
IF NOT. BRANCH 
ELSE. INCREMENT HI TIMEOUT 
KEEP GOING .NO TIME OUT YET 
PRINT COMMAND TIMEOUT MESSAGE 



:G0 DROP THE UNIT 



sGET OUT ON ERROR 
:GET SA CONTENTS 
i CHECK FOR SA ERROR 

BRANCH IF NO ERROR 

LOAD FAILING FRU 

PRINT SA CONTENTS IN ERROR MESSAGE 



sGO DROP THE UNIT 



:GET OUT ON ERROR 
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GLOBAL SUBROUTINES SECTION 





Qodiol 


1 AAAAA 
lOUUUU 


UUUUUc 


cU> : 


DTT 


Zlii 040220 


001336 








Que 


£/m 040ZZZ 


000207 








DTC 


Z735 












c fit 












2737 












c loo 












els'* U40cc4 








LcUA 1 A : 




Cl'i'J 'MVCC'f 


A1 A1 A£ 








nuv 




A1 AOil£ 

uiy24o 








nuv 


AAA9TA 

cite iJtVcsO 


A1 fXXAC 

U1034O 








nuv 




A< ^^A1 

012 1 01 


Ai^AAAA 






nuv 




1^11 37 

12112' 


AAAAA1 






TMDQ 
LnrB 




AA 1 1 iL3 

0vll02 










cftO 04Wc44 


U2012 ' 


AAAAA3 






THD 




AA1 CC3 
UU133C 








DCU 




A1 iLI AT 


AAAAA3 






MA VI 

nuv 




AA37AT 
U42 ' U3 


1 777AA 
If f 1 tv 






OIL 


07^A AAAOAA 


A337AT 

022 '03 


1 lAAA V7 






rHD 
Lnr 




AA 1111 








Dnc 


37^3 AAA379 
c '3c VmMcIC 


Al £< A« 
UlOlUd 


AAAAA3 






nuv 


97d AAA97£ 


Al 37T7 
UXC '3r 


U3204U 


1 A 




Hnu 
nuv 


C '3^ IWVoU^ 


AA37A'« 


AAOOX7 






DXL 


C '33 U4UdlU 










Hon 


c'30 UlUolc 


AA&3A1 








ACO 












ACQ 


37Ba AAAIIil 


AACSAI 








ACQ 

Hon 


c r37 U^UaeU 










ACO 


37ftn 

e f OU 












97A1 

crOX VHVdcc 




000001 
wvvvx 






Lnr 


c 'Oc ^J^^JocD 










one 


C'DO U^UOdU 


Al oTno 


03TT13 






nuv 




VXC ' 0 ' 


0X3<«^^ 

VOCVJJ 






MOU 
rm v 


07<K AAA1AO 

c 'D3 VinUSHc 


AAAAIA 








RO 

On 


c rDD 












c lO 1 sjHSJOH't 


ft337rtT 


AAAAA3 




3? • 


Lnr 


37i;a nAnx^n 
c '00 wtwaau 


AAI AA* 

yjvivvo 








RNP 


C(D7 V4V93e 


ftl 37n3 
Ule 'Uc 


A3 lips 






nuv 


377n OAOX<(A 
C 1 Iw WHW030 


AAAAA& 








RR 

on 


3771 
Ctrl 












3773 n^nxAn 


A337A'I 


00001 3 
VWvXC 




Xv T . 


tmp 

Lrlr 


377t nAnt&A 

£110 










RMP 

one 


377A nAnv&A 


Al 37A3 

VIC lyic 


03TT'73 






MOU 

nuv 


377^ AAnY73 


AAAAAA 








RR 

On 


377fc 












3777 nAnv7d 
c 9 1 1 \myjo 'H 


A337A* 


AAAA3A 




1 ^ t • 


Lnr 


37711 nAOAnn 

Clio W'tW^UW 


AA 1 AAV 
UUXUU9 








RMP 


3770 n4nAn3 


Al OTf\0 








MOU 


37BA AAAAAA 


AAAAIS 








RR 

on 


37Nt 
e 101 












37H3 n^n^in 


033707 

yjcc 'vo 


00003S 






Lnr 


3711* AAAAIA 


00100T 








RMP 
one 




01 3703 

vXC f vC 








MOU 


2765 040422 


000424 








BR 


2786 












2787 040424 


022703 


000026 




25$: 


CMP 


2788 040430 


001003 








BNE 



Page 44 1 SFQ 76 

«0UN.HIADDR(R1) jIS THE SLOT SET TO US ? 

S* :KEEP GOING TILL TIMEOUT OR SUCCESS 

PC : RETURN 



Rl. (SP) 

R2,-CSP) 

R3.-(SP) 

MOBUF.Rl 

CRD.Ol 

EXIT 

L2STA(R1).«0 
GOA60 

L2STA(R1).R3 
♦177740. R3 
♦37. R3 
MSCPER 

L2STACR1).R3 

♦CTRL.FRUIS 

♦000037. R3 

R3 

R3 

R3 

R3 

R3 



:SAVE REGISTERS 



GET START ADDRESS OF RECEIVE DATA 
ANY NEW INFORMATION ? 
NO. RETURN 

YES. LOCAL PROGRAM FINISHED ? 

YES. SET ABORT FLAG 

GET LEVEL 2 PROGRAM STATUS 

MASK OFF UPPER 11 BITS OF STATUS 

L2 MESSAGE IF 1ST 5 BITS SET 

TMSCP COMMAND ERROR OTHERUISE 

GET LEVEL 2 PROGRAM STATUS 

NO. SET FAILING FRU TO CONTROLLER 

MASK OFF UNUSED BITS OF STATUS 



♦1..R3 ; IS IT A DATA COMPARE ERROR ? 

5$ :N0 TRY AGAIN 

♦DCERR.R2 sSET UP TO PRINT ERROR 

♦DRVE.FRUIS ;SET FRU CALLOUT TO DRIVE 

40$ tGO PRINT IT 

♦2..R3 sis IT A CONTROLLER ERROR ? 

10) :N0 TRY AGAIN 

♦CNTERR.R2 jSET UP TO PRINT ERROR 

40» ;G0 PRINT IT 

♦10.. R3 ;IS IT AN INVAILID STATUS ERROR ? 

15$ sNO TRY AGAIN 

♦INVSTA,R2 J SET UP TO PRINT ERROR 

40) iGO PRINT IT 

♦20., R3 ilS IT A BAD PATTERN NUMBER ERROR ? 

20) .-NO TRY AGAIN 

♦6PNERR.R2 :SET UP TO PRINT ERROR 

40) jGO PRINT IT 

♦21.. R3 :IS IT A RESPONSE ADDRESS ERROR ? 

25) sNO TRY AGAIN 

♦RSPA00.R2 iSET UP TO PRINT ERROR 

40) iGO PRINT IT 

♦22.. R3 :IS IT A HOST BUFFER ADDRESS ERROR ? 

30) iNO TRY AGAIN 
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2789 040432 

2790 040436 
2791 

2792 040440 

2793 040444 

2794 040446 

2795 040452 
2796 

2797 040454 

2798 040460 

2799 040462 

2800 040466 
2801 

2802 040470 
2803 

2804 040474 

2805 040500 

2806 040504 

2807 040510 

2808 040514 
040514 

2809 040516 

2810 040520 

2811 040524 

2812 040526 

2813 040532 

2814 040534 

2815 040542 

2816 040544 

2817 040550 

2818 040554 

2819 040556 

2820 040562 

2821 040566 

2822 040572 

2823 040576 
040576 

2824 040600 

2825 040606 
040606 

2826 040610 

2827 040612 

2828 040614 

2829 040616 
2830 

2831 040620 

2842 

2843 

2871 

2872 040620 
2873 



A 4 AO 

012702 


023362 






MOV 


M1BFAD0.R2 


0004 lo 










40$ 


022703 


000027 




30* : 


CMP 


«23. .R3 


OOlOCj 








BNE 


35 1 


012702 


0233 '2 






nov 


9UNERLG,R2 


000410 








BK 


AAA 

40 » 


022703 


000030 




35 »: 


CMP 


*24. .R3 


001003 








BNE 


36 1 


012702 


023402 






HOV 


«RSPT0,R2 


000402 








as 

BR 




A1 ^?A^ 

012702 


A9m9 

023332 




36f : 


HOV 


9INVSTA.R2 


A1 ^^V? 

012237 


A91AC9 

023032 




40* : 


MOV 


IR23*,ERRTtP 


A1 OO^^ 

01223 r 


A91ACA 

023034 






MAW 

MOV 


(K2J* • ERRNBR 


Af 9917 

012297 


A91AC£. 

023030 






MAW 

MOV 


IRZJ^fCRRnSb 


A1 99V? 

012297 


A91ACA 

0230D0 






MAW 

MOV 


CR2j«icRRdLK 










CQOAQ 

ckkok 




1044 OO 








TO AO 


CvcRROR 


AAAAVA 

000490 








DO 

Bn 


bOABO 


022 r 09 


AAAA1 9 

000012 




MCPDCO . 


LMr 


vlZtRo 


AA1 AA£ 

00140O 








OCA 


101 


A997AT 
Uec r U9 


AAAA1 A 






I^MD 

trir 


vl4 1 Rd 


AA1 AAT 

001409 








Dcn 


101 


01£r9r 


U3cD33 


AA9H A 


3* : 


Mnu 
nuv 


AADUC CDllTC 

vDRVc« rRUXS 


AAKVA^ 






mt • 
lUv ; 






V IV9C 1 


AAAA < A 

UUvU lU 






Ml II 




vie > Uc 


t\9Xntt9 






nuv 




AAAVA9 








Ann 


OIL 




Uc3U32 






nuv 


f DO'S A. CODTVD 
VK<: J ♦ I tKK 1 TK 










MAU 

nuv 


TD^*^^ CDDlLiao 
VKc J* 1 tKKriDK 


A1 9917 


A91AC& 






Mnu 
nuv 


vRc J ♦ « tHRH5u 


A1 OOXf 








Mnu 
nuv 


vKk: J ♦ , cKKdLK 










tnnUK 












TO AO 

1 Hnr 


tCDDAD 
LVCNHUK 




AAAA9A 

UwUUcU 


AAAA 1 A 


(^AABA, 

uUnDU : 


OTC 


AAHTCI r 1 IIMCI CfOAy 
wno 1 rLbt LUNr LblK4 J 










nnooT 
UUKr 1 




104424 








TRAP 


CIDRPT 


012603 






EXIT: 


MOV 


(SP)»,R3 










MOU 
nuv 


V Or }* f nc 


012601 








MOV 


(SP)*.R1 


000207 








RTS 


PC 










ENOMOO 





.TITLE MISCELLANEOUS SECTIONS 
.SBTTL REPORT COOING SECTION 

BGNMOO 



SEQ 77 



J SET UP TO PRINT ERROR 
:G0 PRINT IT 

:IS IT A UNKNOUN ERROR LOG RECIEVEO ? 

:N0 TRY AGAIN 

;SET UP TO PRINT ERROR 

:60 PRINT IT 

:IS IT A RESPONSE TIME OUT ERROF< ? 
:N0 TRY AGAIN 
:SET UP TO PRINT ERROR 
||9^RINT IT 

:SET UP TO PRINT ERROR 

sLOAO ERROR TYPE 

sLOAD ERROR NUMBER 

:LOAD ERROR MESSAGE ADDRESS 

;LOAD ERROR SUBROUTINE ADDRESS 

sCALL "ERROR* MACRO 

i ABORT MICRODIAGNOSTIC 

i IS IT A CONTROLLER ERROR ? 

jYES, SET FAILING FRU TO CONTROLLER 

sis IT A FORMATTER ERROR ? 

J YES. LEAVE FAILING FRU AS CONTRLLOER 

:N0. SET FAILING FRU TO DRIVE 

{R3 IS OFFSET INTO TMSCP ERROR TABLE 

:GET TMSCP ERROR TABLE START ADDRESS 

iR2 POINTS TO ENTRY IN TMSCP ERROR TABLE. 

iLOAD ERROR TYPE 

sLOAO ERROR NUMBER 

sLOAD ERROR MESSAGE ADDRESS 

{LOAD ERROR SUBROUTINE ADDRESS 

tCALL "ERROR" MACRO 

sSET ABORT FLAG 

jDUMP NORMAL COMPLETION STATISTICS 
1 RESTORE REGISTERS 



MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 
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2875 
2876 
2877 
2878 
2879 
2880 
2881 

2882 040620 
040620 

2883 
2884 

2885 040620 
040620 
040624 

2886 040626 
040626 

2887 

2888 040630 
040630 
040634 

2889 040636 
040636 

2890 

2891 040640 
040640 
040644 

2892 040646 
040646 

2893 

2894 040650 
040650 
040654 

2895 040656 
040656 

2896 

2897 040660 
040660 
040664 

2898 040666 
040666 

2899 

2900 040670 
2901 

2902 040672 

2903 040672 

2904 040700 

2905 040704 

2906 040710 

2907 040716 

2908 040720 
2909 

2910 040724 
040724 

2911 040726 
2V12 040732 
2913 

2914 040740 



.SBTTL INITIALIZE SECTION 



THE INITIALIZE SECTION CONTAINS 
AT THE BEGimiNG OF EACH PASS. 



012700 
104447 

103421 



012700 
104447 

103415 



012700 
104447 

103411 



012700 
104447 

103422 



012700 
104447 

103465 

000423 



012737 
005037 
012704 
022737 
103002 
004737 



104433 

005237 
012737 



LtlNIT:: 



BGNINIT 



000040 



000037 



000034 



000035 



000036 



READEF «EF. START 
HOV #EF,START.RO 
TRAP CIREFG 
BCOHPLETE START 
BCS START 

READEF «EF. REST ART 
HOV «EF. RESTART.ro 
TRAP CIREFG 
BCOMPLETE START 
BCS START 

READEF ♦EF.PWR 
MOV OEF.PUR.RO 
TRAP C»REFG 
BCOMPLETE START 
BCS START 

READEF OEF.NEW 

MOV oef.new.ro 

TRAP C*REFG 
BCOMPLETE NUPASS 
BCS NUPASS 

READEF OEF, CONTINUE 
MOV #£F. CONTINUE.ro 
TRAP C»REFG 
BCOMPLETE END 



OOOOOC 002270 

002274 

002212 

001400 002120 
036102 



002270 

177777 002312 



START: 



005237 002312 



NUPASS: 



NEXT: 



BCS 
BR 



MOV 

CLR 

MOV 

CMP 

BHIS 

JSR 

BRESET 

TRAP 

INC 

nov 

INC 



END 
NEXT 



♦O.PASCNT 

KTFLA6 

W.UNBLK.R4 

♦1400.L»HIME 

NUPASS 

PC.KTTEST 



C PRESET 

PASCNT 

« l.LOGUNT 

LOGUNT 



SEQ 78 



THE COOING THAT IS PERFORMED 



;IF TH.S IS A FRESH START 

; THEN GO TO START 

:IF THIS IS A RESTART 

; THEN GO TO START 

sIF POUER-FAIL OCCURRED 

! THEN START FkJM THE BEGINNING 

sIF THIS IS A NEW PASS 

; THEN SKIP START UP CODE 

J IF THIS IS A CONTINUE 

! THEN SKIP ALL INIT CODE 

iJUST HERE FOR NEXT UUT 

: INITIALIZE PASS COUNT 

:IN CASE WE'RE STARTED > THAN ONCE 

;R4 WILL ALWAYS POINT TO LUNBLK 

jIF <. 28KW0RDS OF MEMORY PRESENT 

: THEN SKIP NEXT 

: ELSE SEE IF Mn*J IS PRESENT 

s CLEAR THE WORLD 

i UPDATE THE PASS COUNT 
(INITIALIZE LOGICAL UNIT COUNT 

sPOINT TO NEXT UUT 
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INITIALIZE SECTION 



SEQ 



2915 040744 

2916 040752 

2918 040754 
040754 
040760 

2919 040762 
040762 

2920 

2921 040''64 

2922 040770 

2923 040774 

2924 041002 

2925 041006 

2926 041012 
292" 041016 

041016 
041022 
041026 
041032 
041034 
041036 

2928 

292<v 041042 
2930 041042 
041042 
041044 

2931 

2943 041046 

2944 

2945 

2946 041076 
041076 
041076 



023737 
0C1433 



013700 
104442 

103366 

011064 
012064 
062764 
012064 
011064 
004737 

013746 
012746 
012746 
010600 
104417 
062706 



104432 
000032 

045 



104411 



002312 002012 



002312 



000000 
000002 

000002 000002 
000004 
000006 
036266 

002312 
041046 
000002 



000006 



116 



END: 



045 IMSG: 



LlOOll: 



CMP LOGUNT.LIUNIT 

BEQ END 

GPHARD LOGUNT.RO 

MOV LOGUNT.RO 

TRAP CIGPHRD 

BNCOMPLETE NEXT jTRY AGAIN 

BCC NEXT 

MOV (R0).TKIP(R4) 

MOV (R0)«.TKSA(R4) 

ADD «2.TKSA(R4) 

MOV (R0)..TKVEC(R4) 

MOV (R0).MSCPUN(R4) 

JSR PC.RSTVEC 

PRINTF •IMSG.LOGUNT 

MOV LOGUNT.-(SP) 

MOV MMSG.-CSP) 

MOV ♦2.-CSP) 

MOV SP.RO 

TRAP C»PNTF 

ADD «6.SP 



EXIT INIT 

TRAP CIEXIT 

.UORO LlOOll -. 

.ASCIZ ?«NtfATESTING UNIT f(Dl«N? 
.EVEN 

ENOINIT 

TRAP C»INIT 



ilf UE'VE PASSED MAXIMUM UUT'S 
; THEN LEAVE INIT 

;GET P -TABLE fOR THIS UNIT 



PUT IP REG ADDRESS IN LUNBLK 

AND ANOTHER COPY IN LUNBLK 
MAKE IT THE SA REG ADDRESS 
GET THE VECTOR INTO THE LUNBLK 
PUT THE T/MSCP UNIT • IN LUNBLK 
SET UUT VECTOR TOR ILLEGAL INTRPTS. 
TESTING UNIT N" 



niSCELLANEOUS SECTIONS 
CLEANlP CODING SECTION 



2<»48 
^949 

2950 
2951 
2952 
2953 
2954 
2955 
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.SBTTL CLEANUP CODING SECTION 



SEQ 90 



2956 
29^3 
2964 
2965 
2966 
296-' 
2968 
2969 
2970 
2971 
2972 
2973 



2974 
2975 



2976 
2968 
2989 

2990 
2991 



041100 
041100 

041100 
041106 



032764 
001400 



OOOOOOG 002212 



041110 005064 000014 



041114 
041114 
041120 

041122 
041122 
041124 



041126 
041126 
041126 



016400 
104436 



104432 
000002 



000004 



THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 



BGNCLN 
L»CLEAN: : 

BIT 
BEQ 



«T9FLAG.LUNBLK(R4) 
ENOCLE 



;IF NOT HERE FROM TEST 9 
; THEN SKIP THE REST 



;EVENTUALLr MORE CODE HILL BE PLACED HERE TO GUARANTEE THAT AN ABORT 
jCOMMAND IS ISSUED TO THE UUT TO STOP EXECUTION OF THE LOCAL PROGRAM. 



ENDCLE: CLR 



LUNFLG(R4) 



: CLEAR OUT THE LUN FLAGS 



;NOTE: THIS LINE OF CODE MAY HAVE TO BE REMOVED TO HANDLE tC FOLLOUED 
;BY A PROCEED COMMAND CORRECTLY. 

CLRVEC TKVEC(R4) jPUT "TRAP CATCHER" INTO VECTOR 

MOV TKVEC(R4).R0 

TRAP C$CVEC 



104412 



L10012: 



EXIT 
TRAP 
.iJORO 



• EVEN 

ENDCLN 

TRAP 



CLN 

C$EXIT 

L10012- 



CtCLEAN 
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DROP fNIT SECTION 



SEQ 81 



2991 
2994 
2995 
2996 
2997 
299B 
2999 

3000 041130 
041130 

3001 
3007 

300S 041130 012764 000001 000014 
3009 

3010 041136 

041136 000167 
041140 OCOOOO 

3011 
3023 
3024 
3025 

3026 041142 
041142 

041142 104453 



.SBTTL DROP UNIT SECTION 



THE DROP-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 
TO NO LONGER BE TESTED. 



L»DU: 



BGNDU 



MOV 



L10013: 



«0RPFLG.LUNFLG(R4) 



;LETS PROGRAM KNOU IT'S DEAD 



EXIT DU 
.WORD J$JMP 
.UORD L10013-2-. 



.EVEN 
ENDDU 

TRAP CSDU 



MISCELLANEOUS SECTIONS MACRO YDS. 02 Thursday 25-Jul 85 09:27 Page 48 
ADD mn SECTION 



SEO 82 



3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 

3036 041144 
041144 

3037 
3043 

3044 041144 
041U4 
Ctll46 

3045 
3057 
3058 
3059 

3060 041150 
041150 
041150 

3061 

3062 041152 
3063 



.SBTTL ADO UNIT SECTION 



THE AOO-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER UISHES 
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 



L»AU: 



000167 
000000 



104452 



L10014 : 



BGNAU 



EXIT AU 
•WORD JJJMP 
.WORD L10014-2 



.EVEN 
ENDAU 

TRAP C$AU 
ENDMOO 



MISCELLANEOUS SECTIONS 
ADD UNIT SECTION 



3066 

3067 

3071 

3072 

3073 

3074 

3075 

307f 

3077 

3081 

3082 

3095 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3114 041152 
041152 

3115 041152 

3116 041154 

3117 041162 

3118 041166 

3119 041170 

3120 041176 
5121 041200 

041200 
041200 

3122 041202 

3123 

3124 041206 
041206 
041212 
041216 
041222 
041226 
041230 

3125 041234 

3126 041236 

3127 041242 

3128 041244 
041244 
041250 
041252 
041256 
041260 
041264 
041266 



000000 
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.TITLE HAROMARE TEST 

HElP»0 j CONTROL LISTING OF HELP INFORMATION 

HELP-0 NO LIST 
«LP-1 LIST 



SEQ 83 



;ONEFILE» 



CONTROL USE OF SOURCE FILES 

ONEFILE IS NOT DEFINED ASSEMBLE EACH SOURCE FILE SEPARATELY 
ONEFILE»ANYTHING ASSEMBLE ALL SOURCE FILES TOGETHER 



000240 




012737 


000001 


005737 


002270 


001404 




012737 


000010 


000240 




104402 




005037 


002276 


012746 


000340 


012746 


036054 


012746 


000004 


012746 


OOOOOi 


104437 




062706 


000010 


000240 




005074 


000000 


000240 




012727 


000001 


000000 




013727 


002116 


000000 




005367 


177772 


001375 




005367 


177756 



.SBTTL TEST 1: EXISTENCE VERIFICATION TEST 



TEST 1 EXISTENCE VERIFICATION TEST 

THIS TEST VERIFIES THE EXISTENCE OF THE UUT BY 
ATTEMPTING TO READ FIRST THE IP AND THEN THE SA 
REGISTERS OF THE TK50. VECTOR 4 IS SET UP UITH 
A TRAP HANDLING ROUTINE IN CASE OF A NON-EXISTENT 
MEMORY TIMEOUT. 

i *************************************************************** 
;*************************************************************** 



SET UP FOR ONE TEST ITERATION 
IF PASS 0 

THEN START TEST 

ELSE DO MULTIPLE ITERATIONS 



Tl.l: 
1): 



BGNTST 




NOP 




MOV 


#1.ITRCNT 


TST 


PASCNT 


BEQ 


Tl.l 


MOV 


♦lO.ITRCNT 


NOP 




BGNSUB 




TRAP 


C$BSl« 


CLR 


TRP4FG 


SETVEC 


#VEC4.#TRAP4.*PRI07 


MOV 


♦PRI07. (SP) 


MOV 


#TRAP4,-(SP) 


MOV 


#VEC4.-(SP) 


MOV 


♦3,-(SP) 


TRAP 


C»SVEC 


ADO 


010. SP 


NOP 




CLR 


8TKIPCR4) 


NOP 




DELAY 


1 


MOV 


#1.CPC)* 


.UORO 


0 


MOV 


L»0LY,(PC)* 


.UORD 


0 


DEC 


-6(PC) 


BNE 


.-4 


DEC 


-22(PC) 



; CLEAR NXM TRAP FLAG 

;SET UP VECTOR 4 FOR NXM TRAP 



{WRITE THE IP REGISTER 
sMAKE SURE TIMEOUT CAN OCCUR 
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Y1 90 














TlYA AA197A 


vV3 f 9 f 








TCT 




























riUr' 






Ulc r 




AA97 1 A 




nuv 


A/*TOI CDIITC 

1 KL . r KUlb 


« 1 V A Ad 1 T 1 9 










tKKUr 


3 • tnbbS • PRXcRR 












TD AD 


P ft CD f\C 


v"f XOX^ 














W XwXv 












PMcr«c 


Adi 

\r* x9£\J 


ATTI Ail 








. WUKU 


DDTCDD 
















Adi 199 










TOAP 


r t PI PI 


XIXA Ad1X9d 










UUUV 


LUbUN 1 


Adi X9d 




00971 9 






nuv 


LUbUNI fH\j 


Adi 










TOAD 
1 nnr 


p t nnni i 


SI '7 Ad 1^9 










CdLnrc, 


Ql IP 


Adi X'19 
X99C 










TOAD 

1 nnr 


r t PCPADP 


Adi '^ITd 
v^X JO*t 










Lion 


1 1 A0 1 & 
LXUUXD . 


3 ISA 














313Q OdISSA 

vX97 VfXwwV 














Adi "KXft 

W*fX99U 








1 1 A0 1 6 • 
LX WXD : 






WXv^v 










TOAP 




wX*tV V"tX3**V 














3141 041349 














04134P 


012700 


000004 






nuv 


AWCPd OA 
vVCwH ■ nU 


04 1 


1044 '^6 








TOAP 

1 nnr 


r* PWPP 


31d9 0413^0 

wA^fi %^Aw^V 


039764 


000001 


0000 1 4 

WW A"T 




RTT 
DX 1 


ifunrr Lb » LUnir LbV n<l J 


3143 0413S6 


00140? 

W VC 








RPO 


T1 9 


3144 041360 












TQT 


041360 


104410 








TRAP 




04 1 369 


000P64 










1 1 AA 1 *\ 


314^ 

w A^ J 














3146 041364 














04 1 364 








T1 9 . 

I A • C * 






041364 


10440? 








TOAP 


P«OCl ID 
\m V DOUD 


3147 041366 

wA^ • V^AvVV 


00^03 7 


009976 




10S • 


ri 0 


TOPdPf^ 


314A 














3149 041379 

JA~' V*tA^rc 










tiPTUPr 


*UPrd ATOAPd ADDTA7 


041372 


012746 


000340 

WW J"* V 






< IV V 


*PRI07.-(SP) 


041376 


01?746 


0360S4 

W 






nu V 


w 1 nnrH , \Dr J 


04140P 


012746 


000004 

WW W"t 






MOV/ 
nuv 


wV CUH « - V Jr J 


041406 

A"t Vw 


012746 


000003 
wwwvw^ 






nuv 


vo , ~ V. or J 


04141P 

A~ AC 


104437 








TRAP 




041414 

A^ A~ 


062706 


000010 

WW AV 






Ann 




3150 0414P0 


000240 








NOP 


S151 041422 

wA^A L^CC 


005774 


000002 

w wvc 






T<^T 




31^9 0414P6 


000P40 








NOP 




31^3 041430 










DPI AY 




041430 

A^ wV 


01?7?7 


000031 

VV W-^ A 






nuv 




041434 


000000 
www 








UORD 
■ Nuni^ 




041436 


013727 


002116 






MOV 




041442 


000000 








.WORD 


0 


041444 


005367 


177772 






DEC 


-6(PC) 


041450 


001375 








BNE 


.-4 


041452 


005367 


177756 






DEC 


-22(PC) 


041456 


001367 








BNE 


. 20 



SEQ 84 



;IF NO TRAP OCCURRED 
! THEN CONTINUE TEST 

: IDENTIFY FAILING FRU FOP PRINTOUT 
:''NXM ON READ TKIP" 



iLOOP ON ERROR? 
:DR0P UNIT 

J CAN'T CONTINUE 



;REST0RE VECTOR 4 



IF UNIT WAS NOT DROPPED 
THEN CONTINUE TESTING 
ELSE LEAVE TEST 



: CLEAR NXM ERROR FLAG 

;SET VECTOR 4 FOR NXM TRAPS 



{READ THE SA REGISTER 
;UAIT TO ALLOW NXM TRAP 
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3154 



31SS 041460 


005737 


002276 






TST 


TRP4FG 


3156 041464 


001416 








BEQ 


15$ 


3157 041466 


000240 








NOP 




3158 041470 


012737 


032640 


002310 




MOV 


#CTRL.FRUIS 


3159 041476 










ERRDF 


7.EMSG7,PRIERR 


041476 


1044!;5 








TRAP 


C$tRDF 


041500 


000007 








.WORD 


7 


041502 


030406 








.UORD 


EMSG7 


041504 


033146 








.UORD 


PRIERR 


3160 041506 










CKLOOP 




041506 


104406 








TRAP 


C$CLP1 


3161 041510 










DODU 


LOGUNT 


041510 


013700 


002312 






MOV 


LOGUNT.RO 


041514 


104451 








TRAP 


C$DODU 


3162 041516 










ESCAPE 


SUB 


041516 


104410 








TRAP 


C$ESCAPE 


041520 


000062 








.UORD 


L10017 . 


3163 














3164 041522 


017464 


000002 


000012 


15$: 


MOV 


aTKSA(R4).TKSASVCR4) 


3165 041530 


032764 


004000 


000012 




BIT 


*B.S1.TKSASV(R4) 


3166 041536 


001021 








BNE 


16$ 


3167 041540 


000240 








NOP 




3168 041542 


012737 


004000 


002314 




MOV 


OB.Sl.SAEXP 


3169 041550 


012737 


032640 


002310 




MOV 


*CTRL.FRUIS 


3170 041556 










ERRDF 


8. .EMSG8.PRISA 


041556 


104455 








TRAP 


C$ERDF 


041560 


000010 








.UORD 


8 


041562 


030427 








.UORD 


EMSG8 


041564 


032764 








.UORD 


PRISA 


3171 041566 










CKLOOP 




041566 


104406 








TRAP 


C$CLP1 


3172 041570 










DODU 


LOGUNT 


041570 


013700 


002312 






MOV 


LOGUNT.RO 


041574 


104451 








TRAP 


C$DODU 


3173 041576 










ESCAPE 


SUB 


041576 


104410 








TRAP 


C$ESCAPE 


041600 


000002 








.WORD 


L10017-. 


3174 041602 








16$: 


ENDSU6 




041602 








L10017: 






041602 


104403 








TRAP 


C$ESUB 


3175 














3176 041604 


005037 


002314 




20$: 


CLR 


SAEXP 


3177 041610 










CLRVEC 


♦VEC4 


041610 


012700 


000004 






MOV 


«VEC4.R0 


041614 


104436 








TRAP 


C$CVEC 


3178 041616 


032764 


000001 


000014 




BIT 


#DRPFLG.LUNFLG(R4) 


3179 041624 


001006 








BNE 


25$ 


3180 041626 


005337 


002272 






DEC 


ITRCNT 


3181 041f32 


000240 








NOP 




3182 041634 


M ■ AAA 

00 '.402 








BEQ 


25$ 


3183 041636 


000137 


041200 






JMP 


Tl.l 


3184 














3185 041642 








25$: 


EXIT 


TST 


041642 


104432 








TRAP 


C$EXIT 


041644 


000002 








.UORD 


L10015-, 



3186 



SEQ 85 



jIF NXM DID NOT OCCUR 
: THEN CONTINUE TEST 

{IDENTIFY FAILING FRU FOR PRINTOUT 
!"NXM ON FIRST READ OF SA" 



iLOOP ON ERROR? 
;DROP UNIT IF NOT 

{LEAVE TEST 



GET A COPY OF SA IN MEMORY 
IF STEP 1 BIT IS SET 
THEN TEST 1 IS COMPLETE 

LOAD "EXPECTED FOR PRINTOUT 
IDENTIFY FAILING FRU FOR PRINTOUT 
"SA REG IN ERROR ON FIRST READ" 



{LOOP ON E9R0R? 
{DROP UNIT IF NOT 

{LEAVE TEST 



{CLEAR ERROR INDICATOR 
{RESTORE VECTOR 4 



{IF UNIT DROPPED 

{ THEN LEAVE NOU 

{IF ITERATIONS EQUAL 0 

{ THEN LEAVE TEST 

{ ELSE GO BACK FOR MORE 
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3187 

3183 .EVEN 
3189 

3190 041646 ENOTST 
041646 L10015: 
041646 104401 TRAP CSETST 



SEQ 86 
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SEQ 87 



3193 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 

3214 041650 
041650 

3215 

3216 041650 

3217 041656 

3218 041660 
041660 
041662 

3219 041666 

3220 041674 

3221 041676 
041676 
041702 
041706 
041712 
041714 
041716 

3222 041722 
041722 
041724 

3223 

3224 041726 

3225 041734 

3226 041742 

3227 041750 

3228 041752 
3229 

3230 041760 

3231 041766 

3232 041774 
3233 

3234 042000 

3235 042004 
3236 

3237 042006 

3238 042014 
042014 
042016 
042020 
042022 

3239 042024 
042024 



032764 
001423 

104421 
010037 
032737 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

104432 
000504 

012737 
012737 
022737 
001403 
012737 

012737 
013737 
004737 

005737 
001415 



.SBTTL TEST 2: SA REGISTER URAP TEST 



TEST 2 - SA REGISTER WRAP TEST 

THIS TEST WILL INITIALIZE THE UUT BY WRITING TO ITS 
IP REGISTER. IT WILL FORCE THE UUT INTO DIAGNOSTIC 
URAP MODE. AND WRITE FIRST A FLOATING 0 DATA PATTERN, 
FOLLOWED BY A FLOATING 1 DATA PATTERN TO THE SA REG. 
EACH WRITE UILL BE FOLLOUED BY A READ AND COnPARE 
OPERATION. 

: *************************************************************** 

BGNTST 



T2: 



000001 000014 



002334 

001000 002334 



002114 
047626 
000002 



000006 



000001 
000001 
000001 



002316 
002272 
002270 



000002 002272 



140000 
002314 
036434 

002320 



002314 
002250 



1): 



G02: 



2*: 



012737 032640 002310 

104455 
000011 
030465 
032740 

104406 



BIT 


♦DRPFLG,LUNFLG(R4) 


IF UUT NOT DROPPED 


BEQ 


G02 


THEN DO TEST 


RFLAGS 


FLAGS 


ELSE GO GET SUPRVISOR FLAGS 


TRAP 


ORFLA 




MOV 


RO, FLAGS 




BIT 


#PNT. FLAGS 


SEE IF UE'RE PRINTING TEST NUMBERS 


BEQ 


1< 


NO. DON'T PRINT BYPASSED 


PRINTF 


«YPASS.L»TEST 


ELSE PRINT THE TEST 


MOV 


L$TEST,-(SP) 




MOV 


«YPASS.-(SP) 




MOV 


♦2.-(SP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


#6,SP 




EXIT 


TST 5 BYPASSED MESSAGE AND GET OUT 


TRAP 


C$EXIT 




.WORD 


L10020-. 




MOV 


♦l.INISTP 


STEP 1 FOR ERROR PRINTOUT 


MOV 


♦l.ITRCNT 


SET UP FOR ONE TEST ITERATION 


CMP 


♦l.PASCNT 


IF FIRST PASS 


BEQ 


2$ 


THEN START TEST 


MOV 


♦2.ITRCNT 


ELSE DO 2 ITERATIONS 


MOV 


«IT15!B.WR.SAEXP 


jSET UP STEP 1 FOR OIAG. URAP MODE 


MOV 


SAEXP.STPTBL 


[PUT IT IN STEP 1 OF TABLE 


JSR 


PC.STEPl 


GO DO IT 


TST 


STEPS7 jIF STATUS OKAY 


BEQ 


5» 


THEN CONTINUE TEST 


MOV 


#CTRL.FRUIS 


.FAILING FRU FOR PRINTOUT 


ERROF 


9. ,EMSG9.PRIINI 


i"SA CONTENTS IN ERROR" 


TRAP 


C»EROF 




.WORD 


9 




.WORD 


EMSG9 




.WORD 


PRIINI 




CKLOOP 


:L00P ON ERROR? 


TRAP 


C»CLP1 
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3240 042026 










DOOU 


LOGUNT 


042026 


013700 


002312 






nov 


LOGUNT.RO 


042032 


104451 








TRAP 


OOODU 


3241 042034 










ESCAPE 


TST 


042034 


104410 








TRAP 


C»ESCAPE 


042036 


000372 








.WORD 


L10020-. 


3242 














3243 042040 


012737 


000100 


002326 


5J : 


nov 


#100. OUTER 


3244 0420<d 


012737 


037200 


002324 


6i: 


MOV 


«16000 ., INNER 


3245 042054 


017464 


000002 


000012 




nov 


aTKSA(R4).TKSASV(R4) 


3246 042062 


023764 


002314 


000012 




CUP 


SAEXP.TKSASV(R4) 


3247 042070 


001422 








BEQ 


10) 


3248 042072 


004737 


036406 






JSR 


PC.PDELAY 


3249 042076 


005737 


002330 






TST 


TOUT 


3250 042102 


001761 








BEQ 


6t 


3251 














3252 042104 


012737 


032640 


002310 




MOV 


♦CTRL.FRUIS 


3253 042112 










ERRDF 


10..EMSG9.PRIINI 


042112 


104455 








TRAP 


OERDF 


042114 


000012 








.WORD 


10 


042116 


030465 








.UORD 


EMSG9 


042120 


032740 








.UORD 


PRIINI 


3254 042122 










CKLOOP 




042122 


104406 








TRAP 


OCLPl 


3255 042124 










DODU 


LOGUNT 


042124 


013700 


002312 






MOV 


LOGUNT.RO 


042130 


104451 








TRAP 


ODODU 


3256 042132 










ESCAPE 


TST 


042132 


104410 








TRAP 


OESCAPE 


042134 


000274 








.UORD 


L10020 . 


3257 














3258 042136 


012737 


177776 


002322 


lOi: 


MOV 


#177776. URDATA 


3259 042144 


013774 


002322 


000002 


Hi: 


MOV 


URDATA.8TKSA(R4) 


3260 042152 


013737 


002322 


002314 




MOV 


URDATA.SAEXP 


3261 042160 


012737 


000100 


002326 




MOV 


#100, OUTER 


3262 














3263 042166 


013737 


037200 


002324 


15): 


MOV 


16000. .INNER 


3264 042174 


017464 


000002 


000012 




MOV 


8TKSA(R4).TKSASV(R4) 


3265 042202 


023764 


002314 


000012 




CMP 


SAEXP,TKSASVCR4) 


3266 042210 


001422 








BEQ 


20$ 


3267 042212 


004737 


036406 






JSR 


PC.PDELAY 


3268 042216 


005737 


002330 






TST 


TOUT 


3269 042222 


001761 








BEQ 


15$ 


3270 














3271 042224 


012737 


032640 


002310 




MOV 


♦CTRL.FRUIS 


3272 042232 










ERRDF 


11.. EMSGIO. PRIINI 


042232 


104455 








TRAP 


C»ERDF 


042234 


000013 








.UORD 


11 


042236 


030512 








.UORD 


EMSGIO 


042240 


032740 








.UORD 


PRIINI 


3273 042242 










CKLOOP 




042242 


104406 








TRAP 


C»CLP1 


3274 042244 










DODU 


LOGUNT 


042244 


013700 


002312 






MOV 


LOGUNT.RO 


042250 


104451 








TRAP 


ODODU 


3275 042252 










ESCAPE 


TST 


042252 


104410 








TRAP 


C$ESCAPE 



: LEAVE TST 



SET UP FOR DELAY ROUTINE 

SET UP INNER 

GET SA CONTENTS 

IF SA IS WHAT UC EXPECT 

THEN MOVE ALONG 

ELSE GIVE UUT SOME TIME 
IF NO TIMEOUT YET 

THEN GO TAKE ANOTHER LOOK 

FAILING FRU FOR PRINTOUT 
"SA CONTENTS IN ERROR" 



: INITIALIZE URAP DATA 
:SEND DATA TO UUT 
sSAVE A COPY FOR COMPARE 
sSET UP FOR DELAY ROUTINE 

i INNER TOO 
iREAD SA 

sIF DATA MATCHES 

: THEN CHANGE DATA 

; ELSE GIVE UUT SOME TIME 

sIF NO TIMEOUT YET 

: THEN GO TAKE ANOTHER LOOK 

;FAILING FRU FOR PRINTOUT 
s"SA WRONG IN DATA URAP" 



;GET OUT IF NOT LOOPING 
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Ail ^^Cjl 

042254 


AAA 4 KA 
000154 








1 man 

.UORD 


L10020 . 


Tola 














XOT7 /\AOOKA. 




\We3ee 




OA < . 


OAI 


IJOn A T A 












ape 


II » 


At > 9 














OcOV U4ct:&4 


A1 0717 

012 1 if 


AAAAA1 






nOV 


91 .URDATA 




A1 177A 




AAAAAO 


OA ft . 

c4 » : 


nov 


1 tr%t\ ATA eiTI/CA/BA ^ 


OcOc vncow 


Ul A r A f 




AAO1 1 A 




Mnu 

nov 


LlDnATA CAP WD 


icon U4eAUO 


A1 5717 

Ole r A r 


AAA1 AA 


AA9T9C 

OveSeO 






9100 •uUTcn 
















A1 0717 

yic f 3 f 


A1 £AAA 


AA9T9A 

\We3e4 


OC A M 


Mnu 

nov 


9lD00v»lNNcn 




A1 7A&A 
Ul f404 


AAAAA9 


AAAA1 9 




MAIi 

nov 


9TK5AC n4 } , TKSASvCk4 } 


T9a7 /\AOXXf\ 


023 /o4 


002314 


AAAA 1 9 

OOOOle 




PUD 

cnp 


SAtXP, TKSASVCR4) 




AA1 A 








OCA 

DC.Q 


TA A 

30* 


XOtiQ f\AOXAf\ 


AAA7T7 


C30*U6 






ICD 


or DACI AV 

rC ,rUbLnT 


loon nAOXAA 




nn9TTft 






TCT 


TftI IT 




AA 1 7£ 1 








Dm 

DC.W 


OC A 


















ftl 37T7 


ft19&Aft 
v3eDHV 


ftA31 1 ft 




MAW 

nu V 


APTDI CDIITC 












tKKUr 


10 CMCP1A DDTTUT 












TOAD 


PAConc 
(.* tKUr 




ftftftfti A 
WvUw X^ 










1 o 
le 












unon 

. MUKU 


CMCr 1 A 

bnblslO 




ftT97Aft 








unon 

. MUKU 


PPTTKIT 
rKllNl 












Pl/l HAD 






1 ftAAftA 








TOAD 
1 Knr 




X9Qfk nA9X19 










uuuu 


1 ftri iKiT 
LUbUN 1 




ftl T7ftft 
wX d r 


ftAai f 3 






MftU 

nuv 


1 ftri lUT DA 
LUuUN 1 ( KU 


nA9X7fk 


1 ftAAm 








TPAD 


uuuu 












CCPAPP 


TCT 


V*» t ■» vV 


iftAAin 

XvH*t Xv 








TOAP 

1 n Ar 


r tPCTADC 
L*C.oLArt 




AftftftOt 
VvvvCO 








unpn 

. MUnU 


1 1 ftftOft 


70 














TSQQ nA9AnA 
3C7T SJnc'fv'f 


ftftAI XI 






Tft* • 


pni 

KUL 


WKUn 1 M 


xxnn OA9Am 


1 ft'^XTft 










OA t 


IIAI nA9A19 


ftfts'??? 


ftft9979 






UCL 


TTPrWT 

1 1 KLn 1 


lift? 


ftfti Aft9 








RPQ 
DCU 


T9FYT 


nA9A3n 


ftftfti 77 


ftA 1 7 Aft 
U4X r DU 






IMP 


C* 
















TVnt nA9A9A 










FV TT 


TQT 


nA9A9A 


1 ftAAT9 








TP AP 

1 Knr 






000002 
vw w vc 












3306 














3307 042430 










ENDTST 




042430 








LI 0020: 






042430 


104401 








TRAP 


C$ETST 



: SHIFT TEST PATTERN 
;UE RE MOT DONE YET 

jSET UP FOR FLOATING 1 PATTERN 
sbENO DATA TO UUT 
:KEEP A COPY FOR COMPARE 
sSET UP FOR DELAY ROUTINE 

; DELAY ROUTINE TOO 

;READ THE SA 

;IF IT MATCHES 

i THEN SEE IF UE'RE DONE 

! ELSE GIVE UUT SOME MORE TIME 

ilF NO TIMEOUT YET 

; THEN TAKE ANOTHER LOOK 

;FAILING FRU FOR PRINTOUT 
:"SA URONG IN DATA URAP" 



;LEAVE TEST IF NOT LOOPING 



SHIFT DATA PATTERN 
WE'RE NOT DONE YET 
IF ITERATIONS ■ 0 
THEN LEAVE TEST 
ELSE DO ANOTHER ONE 



sGET OUTTA HERE 
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3310 .SBTTL TEST 3: INITIALIZATION TEST 

3314 

3315 

3316 ;;*****************************************************•****•«*«« 

3317 ;;*************«************************•*******************«*•*• 

3318 i 

3319 {TEST 3 - INITIALIZATION TEST 

3320 s THIS TEST COMMENCES THE UQ-PORT INITIALIZATION SEQUENCE 

3321 } UITH INTERRUPTS DISABLED. IT VERIFIES THAT ALL STEP 

3322 : TRANSITIONS OCCUR UITHIN THE ALLOTED TIME. AW THAT ALL 

3323 ! HOST SUPPLIED INFORMATION IS ECHOED BY THE UUT. THE 

3324 ; PROGRAM FURTHER VERIFIES THAT NO INTERRUPTS OCCUR AS A 

3325 ! RESULT OF THE STEP TRANSITIONS. 
3326 

3327 i ; *************************************************************** 

332S ; : *************************************************************** 

3332 

3333 042432 BGNTST 

042432 T3:: 

3334 



3335 042432 


032764 


000001 


000014 




BIT 


40RPFLG , LUNFLGC R4 ) 


ilF UUT NOT DROPPED 


3336 042440 


001423 








BEQ 


G03 


i THEN 00 TEST 


3337 042442 










RFLAGS 


FLAGS 


;ELSE GO GET SUPRVISOR FLAGS 


042442 


104421 








TRAP 


ORFLA 




042444 


010037 


002334 






MOV 


RO. FLAGS 




3338 042450 


032737 


001000 


002334 




BIT 


«PNT. FLAGS 


;SEE IF WE'RE PRINTING TEST NUMBERS 


3339 042456 


001412 








BEQ 


1$ 


;N0. DON'T PRINT BYPASSED 


3340 042460 










PRINTF 


OBYP ASS, LATEST 


J ELS PRINT THE TEST 


042460 


013746 


002114 






MOV 


LITEST. -(SP) 




042464 


012746 


047626 






MOV 


•BYPASS, -(SP) 




042470 


012746 


000002 






MOV 


♦2,-(SP) 




042474 


010600 








MOV 


SP.RO 




042476 


104417 








TRAP 


C»PNTF 




042500 


062706 


000006 






ADD 


«6.SP 




3341 042504 








It: 


EXIT 


TST 


sBYPASSED MESSAGE AND GET OUT 


042504 


104432 








TRAP 


CIEXIT 




042506 


000410 








.WORD 


L10021-. 




3342 
















3343 042510 


012737 


032640 


002310 


G03: 


MOV 


♦CTRL.FRUIS 


jFAILING FRU IN CASE OF ERROR 


3344 042516 


012737 


000001 


002272 




MOV 


♦l.ITRCNT 


;SET UP FOR ONE TEST ITERATION 


3345 042524 


022737 


000001 


002270 




CMP 


♦l.PASCNT 


;IF FIRST PASS 


3346 042532 


001403 








BEQ 


21 


; THEN START TEST 


3347 042534 


012737 


000012 


002272 




MOV 


♦10, .ITRCNT 


; ELSE DO 10 ITERATIONS 


3348 
















3349 042542 


012705 


000000 




2): 


MOV 


«0,R5 


:SET UP R5 AS INDEX TO STEP TABLES 


3350 042546 


012737 


000001 


002316 




MOV 


n.INISTP 


sSTEP 1 FOR ERROR PRINTOUT 


3351 042554 


016437 


000004 


002250 




MOV 


TKVEC(R4),STPTBL 


sPUT VECTOR IN STEP 1 


3352 042562 


006237 


002250 






ASR 


STPTBL 


i DIVIDE BY TWO 


3353 042566 


006237 


002250 






ASR 


STPTBL 


:DIVIDE BY FOUR 


3354 042572 


013737 


002250 


002264 




MOV 


STPTBL, CMPTBL •4 


jPUT VECTOR IN STEP 3 COMPARE 


3355 042600 


052737 


104400 


002250 




BIS 


#104400. STPTBL 


;REST OF STEP ONE 


3356 042606 










REAOBUS 




:IF QBUS 


042606 


104407 








TRAP 


CIRDBU 




3357 042610 










BCOMPLETE 3$ 


: THEN BR FOR QBUS SET UP 


042610 


103404 








BCS 


3$ 




3356 042612 


012737 


004700 


002260 




MOV 


♦4700. CMPTBL 


i ELSE SET UP FOR UNIBUS 


3359 042620 


000403 








BR 


4) 
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VlCl 91 


fMC7fM 


fM99£A 


Xt . 

A* : 


nuv 


AO Clio no 1 o nT 1 s nn ■ 


















M 97X7 
UlC 1 91 




Wcc3c 


4» : 


nuv 






nt 97T7 


UlUcll 


WccOc 




nuv 


»0 102 1 1 , Cnr T BL ♦ 2 




f\t 97T7 


www 


/V\99Q^ 

Wee 34 




nuv 


AA CTDTQI ^A 

«U,9 Ir iBL*4 




1 1 97T7 
lis ' 3 ' 




Wec03 




nuvo 


PMDTDI 

**U, tW 1 OL ♦j 




ftl 97T7 
Uls ' 3 ' 




0039'^ 




nuv 


vUaO IK IBl.*D 




A1 97T7 
Vic 191 


www 


We''00 




Mnu 
nuv 


•O4O000 . Lnr i BL *o 


















yfv^ i 9 i 


OX&4X4 






ICO 


pr CTCD1 
rL 1 9 1 crl 




SA/j 191 


nn9X9n 






TCT 


CTCDCT 

9 1 tr 1 




Oni A19 
W141e 








DCU 


J* 
















9919 r Uv 










tKKUr 




AA97rM; 










TDAP 
1 Knr 




AA97tn 


vvvvll 








unon 

. HUnU 


Q 


vtc r Xs 










unon 


cn9i3 T 




nT97Ao 










DOTTMT 
rnXXriX 












ri/| nnp 














TRAP 


CkCI PI 


S^7S 0A979fl 










nnnii 

U\JVV 


1 nniiMT 
LUuuri 1 




VIO r vu 


009X1 9 






HOU 

nuv 


LUuUni iKU 


nA979A 


1 nA4m 








TD AD 


L * UUUU 


3'<7lt flA979A 










PCPAPP 


TCT 

1 9 i 


flA979A 


1 AAA in 








TDAP 


npcPAPP 




flflfli ftft 

VWIOO 








unon 


1 1 no9i _ 
















SS78 0A2739 


0PS237 


009316 




St • 


Xill> 


TMTCTP 
XnX9 1 r 


w w f T K ( wO 




000009 
vwwc 






ADD 






VIC 19 1 


000100 

VVVX VV 


009396 

VVC 


6t • 


HOU 


A1 no niiTPQ 

VXWflUUI Cn 


9wvX V"VC ( 9V 


016<$37 


009960 

VVCCoV 


009X14 

VVCwXt 




HOU 


PHPTRI TDS^ CAPVP 


w 7vC V"tC 1 ^9 


0197X7 

VXC 1 J 1 


0X7900 

V9 1 C W 


009X94 

VVC 


74 • 


HOU 
nuv 


ai 60n0 TMMPD 


wwvw VtcfOf 


01 741^4 


000009 
vvvvvc 


0000 1 9 
vvvvxc 




hOU 
nuv 


VIK9MVn4^« IK9A9Vvn4^ 




09 9 7 OS 


000006 
vvvvvo 






PHP 


M, DS 




00100S 








DrlC 


At 
Of 




yj9 9 1 w*» 


009X14 


0000 1 9 
WW xc 




BTT 
OX 1 


QApyP TVCACUTDA^ 
9nz.Ar , IK9n9VvK4^ 


3XA7 AAlAAIt 


001094 








Due 


lot 
xuf 


l^AA 

wwvv V"*wWiV 


000404 








RD 


4i 




09X7^4 

VC9 1 


009X14 

VVcwXt 


000019 
WWXk 


At • 


PHP 


CAPyP TVCACUTDA^ 
9MCAr t l^9M9Vvn4/ 


^wTV v"fwVCV 


00 1 4 1 7 

W X"t X ' 








RPD 


int 

XV ▼ 




004737 


036406 




41 • 


IQR 
w9n 


pp pnpi Av 




VV J 1 9 1 


009XX0 

VVCwwV 






TQT 


TOUT 
1 Uw 1 


HOT AIYAYP 


0017S1 

VV X 1 J A, 








RPO 


7* 




























IX PMQnO PRTTMT 
X9 • 1 cn9U7 » r nxxnx 




1044SS 








TRAP 


PI PROP 


OV wo 


OOOO 1 S 








• If Unl/ 


\ X 
X9 




0X04 l^is 








urwn 


cn9u" 




0X9740 








uoRn 

• HUnu 


PRTTMT 

rnXXftX 


ww~P OV^^ 










cm OOP 






1 044 Oli 








TDAP 

1 nnr 


ptri Di 












no nil 


1 nftllNT 


043046 


013700 


002312 






nov 


LOGUNT RO 


043052 


104451 








TRAP 


CIOOOU 


SS9S 043054 










ESCAPE 


TST 


043054 


104410 








TRAP 


OESCAPE 


043056 


000040 








.WORD 


L10021-. 



L 



B.nP.CMPTBL 

:STEP 1 COfVARE VALUE 
sSTEP 2 - com AREA ADDRESS 
jSTEP 2 COMPARE 
:STEP 3 - HIGH ADDRESS 
.REST OF STEP 3 COMPARE 
:STEP 4 

:STEP 4 COMPARE 

•GO no IT 

;IF STATUS OKAY 

; THEN CONTINUE TEST 

:"SA CONTENTS IN ERROR" 



;L00P ON ERROR? 
;DROP UUT 

s LEAVE TST 



ADJUST STEP COUNTcR 
ADJUST TABLE IKDEX 
SET UP FOR DELAY ROUTINE 
SET UP FHK COMPARE 
SET UP IN!«R 
GET SA CONTENTS 
ARE UE IN STEP 47 
BRANCH IF NOT 
JUST LOCK FOR STEP 4 BIT 
IT'S SET SO LET'S GO 
STAY IN LOOP OTHERWISE 
IF SA IS WHAT WE EXPECT 

THEN MOVE ALONG 

ELSE GIVE UUT SOME TIME 
IF NO TIMEOUT YET 

THEN GO TAKE ANOTHER LOOK 



"SA CONTENTS IN ERROR" 
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3409 043060 


016574 


002250 


000002 


lOt: 


NOV 


STPTBL(RS).8TKSA(R4} 


jURITE NEXT STEP TO UUT 


3401 043066 


022705 


000006 






CNP 


•6.RS 


{IF NOT IN STEP 4 


3402 04S0''2 


001317 








BNE 


SS 


:G0 BACK TO MAIN LOOP 


3403 
















3404 043074 


032764 


000001 


000014 




BIT 


«DRPFLG.LUNFLG(R4) 


sHAS UUT BEEN DROPPED 


3403 043102 


001003 








BNE 


T5EXT 


: LEAVE NOU IF $0 


3406 043104 


005337 


002272 






DEC 


ITRCNT 


J IF MORE ITERATIONS LEFT 


3407 043110 


001214 








BNE 


2* 


: THEN GO 00 IT AGAIN 


340a 
















3409 043112 








T3EXT : 


EXIT 


TST 




043112 


104432 








TRAP 


CfEXIT 




043114 


000002 








.UORO 


L10021 . 




3410 
















3411 043116 










ENOTST 






043116 








L10021: 








043116 


104401 








TRAP 


CIETST 
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SEQ 93 



3414 
3418 
3419 
5420 
3421 
3422 
3423 
3424 
3425 
342^ 
3427 
3420 
3432 
3433 

3434 043120 
043120 

3435 

3436 043120 

3437 M3126 
3430 043130 

043130 
043132 

3439 043136 

3440 043144 

3441 043146 
043146 
043152 
043156 
043162 
043164 
043166 

3442 043172 
043172 
043174 

5443 

3444 043176 

3445 043204 

3446 043212 

3447 043220 

3448 043226 
344 9 043234 
3450 043236 
3451 

3452 043244 

3453 043250 
1454 043254 

3455 043262 

3456 043270 

3457 043274 

3458 043300 

3459 043306 

3460 043314 
043314 

3461 043316 
043316 

3462 043320 

3463 043326 



032764 
001423 

104421 
010037 
0327S7 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

104432 
000516 

042764 
C42764 
012737 
012737 
022737 
001403 
01273"' 

004737 
012705 
012737 
016437 
006237 
006237 
013737 
052737 

104407 

103A04 
012737 
000403 
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TEST 4 - VECTOR AND INTERRUPT TEST 

TEST 3 IS REPEATED. BUT WITH INTERRUPTS ENABLED. 
THE PROGRAM VERIFIES THAT AN INTERRUPT OCCURS AT 
THE END OF STEPS 1-3. 



T4: 



000001 000014 



002334 
001000 



002114 
047626 
000002 



000006 



000004 
000002 
032640 
COOOOl 
000001 



002334 



000014 
000014 
002310 
002272 
002270 



IS: 



G04: 



000012 002272 



036316 
000000 
000001 
000004 
002250 
002250 
002250 
104600 



2»: 



002316 
002250 



002264 
002250 



004700 002260 



DuN 1 3 1 




BIT 


«0RPFLG.LUNFLG(R4) 


BEQ 


G04 




ri Af^Q 

r Lnu3 


TRAP 


CtOFl A 


Mnu 


on n AnQ 


BTT 


Vrni gr^nUw 




« • 


PRTNTF 


MYPA(><« 1 ITP^T 


HOV 


LITEST. -CSP) 


MOV 


♦BYPASS. -CSP) 


HOV 


49 -fCPS 




SP RO 


TRAP 


CtPNTr 


ADD 


46 5P 


EXIT 

WAX 1 


TST 


TRAP 




.WORD 


kX wcc • 


BIC 




Bir 




MOV 


♦CTRL.FRUIS 


MOV 


♦l.ITRCNT 


CMP 


•l.PASCNT 


BEQ 


2» 


MOV 


*10..ITRCNT 


JSR 


PC, VECTOR 


MOV 


»0,R5 


MOV 


n.INISTP 


MOV 


TKVEC(R4),STPTBL 


ASR 


STPTBL 


ASR 


STPTBL 


MOV 


STPTBL. CMPTBL*4 


BIS 


♦104600. STPTBL 


READBUS 




TRAP 


CSRDBU 


BCOMPLETE Zi 


BCS 


3» 


MOV 


♦4700.CMPTBL 


BR 


4t 



sir UUT NOT DROPPED 

; THEN DO TEST 

I ELSE GO GET SUPRVISOR FLAGS 



SEE IF WE'RE PRINTING TEST NUMBERS 
NO. DON'T PRINT BYPASSED 
ELSE PRINT THE TEST 



jBYPASSED MESSAGE AND GET OUT 



DO TEST WITH PRIORITY SET TO 0 
CLEAR THE INTERUPT FLAG 
FAILING FRU IN CASE OF ERROR 
SET UP FOR ONE TEST ITERATION 
IF FIRST PASS 

THEN START TEST 

ELSE DO 10 ITERATIONS 

SET UP VECTOR WITH INTERRUPT HANDLER 
SET UP R5 AS INDEX TO STEP TABLES 
STEP 1 FOR ERROR PRINTOUT 
PUT VECTOR IN STEP 1 
DIVIDE BY TWO 
DIVIDE BY FOUR 

{PUT VECTOR IN STEP 3 COMPARE 
.•REST OF STEP ONE 
;ir (JBUS 

: THEN BR FOR QBUS SET UP 
s ELSE SET UP FOR UNI6US 
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3464 


043330 


012737 


005700 


002260 


3t : 


















3466 


043336 


012737 


060050 


002252 


4t : 


MOV 


3467 


043344 


013737 


010211 


002262 






346d 


043352 


012737 


000000 

www 


0022S4 




nov 


3469 


043360 


052737 


000200 

WWfc w 


002264 




BIS 


3470 


043366 


112737 


000040 

w w~ w 


002265 




MOVB 


3471 


043374 


012737 


000000 

vw w w 


002256 




HOV 


3472 


043402 


012737 


04C000 

WW 


002266 




nov 


3473 














3474 


043410 


004737 


036434 






JSR 


3475 


043414 


005737 


002320 






TST 


3476 


043420 


001412 








6EQ 


3477 














3478 


043422 










ERRDF 




043422 


104455 








TRAP 




043424 


000016 








.WORD 




C43426 


030465 








.UORO 




043430 


032740 








.WORD 


3479 


043432 










CKLOOP 




043432 


104406 








TRAP 


3480 


043434 










DODU 




043434 


013700 


002312 






MOV 




043440 


104451 








TRAP 


3481 


043442 










ESCAPE 




043442 


104410 








TRAP 




043444 


000246 








.UORO 


3482 














3463 


043446 


012737 


000100 


002326 


5$: 


MOV 


3484 


043454 


016537 


002260 


002314 




MOV 


3485 


043462 


012737 


037200 


002324 


7$: 


MOV 


3486 


043470 


032764 


000002 


000014 




BIT 


3487 


043476 


001017 








6NE 


3488 


043500 


004737 


036406 




9): 


JSR 


3489 


043504 


005737 


002330 






TST 


3490 


043510 


001764 








BEQ 


3491 














3492 


043512 










ERRDF 




043512 


104455 








TRAP 




043514 


000017 








.WORD 




043516 


030540 








.UORO 




043520 


033146 








.WORD 


3493 


043522 










CKLOOP 




043522 


104406 








TRAP 


3494 


043524 










DODU 




043524 


013700 


002312 






MOV 




043530 


104451 








TRAP 


3495 


043532 










ESCAPE 




043532 


104410 








TRAP 




043534 


000156 








.WORD 


3496 














3497 


043536 


042764 


000002 


000014 


10«: 


BIC 


3498 


043544 


005237 


002316 






INC 


3499 


043550 


062705 


000002 






ADD 


3500 


043554 


016537 


002260 


002314 




MOV 


3501 


043562 


017464 


000002 


000012 




MOV 


3502 


043570 


022705 


000006 






CMP 



Page 55-1 



3EQ 94 



«B.S1!B.QB!B.0I!B.00!B.MP.CMPTBL 



<k:ommar.stptbl»2 

•O10211.CMPTBL»2 

♦0.STPTBL*4 

«B.IE.CMPTBL»4 

#40.CMPTBL.5 

0O.STPTBL.6 

«040000.CMPTBL»6 

PC.STEPl 

STEPST 

5J 

14.,EMSG9.PRIINI 

CJEROF 

14 

EMSG9 
PRIINI 

C»CLF1 

LOGUNT 

LOGUNT.RO 

DOODU 

TST 

C»ESCAPE 
L10022-. 



;STEP 1 COMPARE VALUE 

5 STEP 2 - COMM AREA ADDRESS 

J STEP 2 COMPARE 

STEP 3 HIGH ADDRESS 
SET THE INTERRUPT ENABLE BIT 

REST OF STEP 3 COMPARE 

STEP 4 

STEP 4 COMPARE 

GO DO IT 

IF STATUS OKAY 

THEN CONTINUE TEST 

!"SA CONTENTS IN ERROR" 



iLOOP ON ERROR? 
sDROP UUT 

; LEAVE TST 



#100. OUTER 
CMPTBL(R5),SAEXP 
«16000.. INNER 
*INTFLG.LUNFLG(R4) 
10$ 

PC.POELAY 

TOUT 

7$ 

15..EMSG11.PRIERR 

C<EROF 

15 

EMSGll 
PRIERR 



SET UP FOR DELAY ROUTINE 
SET UP FOR COMPARE 
SET UP INNER 
IF INTtRRUPT OCCURRED 

THEN SEE IF SA 13 CORRECT 

ELSE GIVE UUT SOME TIME 
IF NO TIMEOUT YET 

THEN 60 TAKE ANOTHER LOOK 

s "EXPECTED INTERRUPT DID NOT OCCUR' 



C»CLH 

LOGUNT 

LOGUNT.RO 

C$DODU 

TST 

C»ESCAPE 
L10022-. 



«NTFLG,LUNFLGCR4) 

INISTP 

#2.R5 

CMPTBL(R5).SAEXP 

aTKSA(R4).TKSASV(R4) 

«6,R5 



CLEAR THE INTERRUPT FLAG 
ADJUST THE STEP COUNTER 
ADJUST TABLE INDEX 
GET THE COMPARISON VALUE 
GET SA CONTENTS 
ARE UE IN STEP 4? 



HAROUARE TEST rMCRO ''OS. 02 Thursday 25 Jul 85 09:27 

TEST 4: VECTOR AND INTERRUPT TEST 

3503 043574 001005 BNE 

3504 043576 033764 002314 000C12 BIT 

3505 043604 001017 BNE 

3506 043606 000404 BR 

3507 043610 023764 002314 000012 15»: CUP 

3508 043616 001412 BEQ 
35C9 

3510 043620 lu*: ERROF 
043620 104455 TRAP 
043622 000020 .WORD 
043624 030465 .WORD 
043626 032740 .WORD 

3511 043630 CKLOOP 
043630 104406 TRAP 

3512 043632 DODU 
043632 013700 002312 MOV 
043636 104451 TRAP 

3513 043640 ESCAPE 
043640 104410 TRAP 
043642 000050 .WORD 

3514 

3515 043644 016574 002250 000002 20$: HOV 

3516 043652 022705 000006 CMP 

3517 043656 001273 BNE 
3516 

3519 043660 032764 000001 000014 BIT 

3520 043666 OOlOOS BNE 

3521 043670 005337 002272 DEC 

3522 043674 001402 BEQ 

3523 043676 000137 043244 JMP 
3524 

3525 043702 004737 036266 T4EXT: JSR 

1526 043706 EXIT 

043706 104432 TRAP 

043/10 000002 .WORD 

3527 

3528 043712 ENOTST 
043712 L10022: 

043712 104401 TRAP 
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SEQ 95 



15» 

SAEXP.TKSASVCR4) 

20$ 

16$ 

SAEXP.TKSASV(R4) 
20$ 

16. ,EMSG9.PRIINI 

C$ERDF 

16 

EMSG9 
PRIINI 

C$CLP1 

LOGUNT 

LOGUNT.RO 

C$DODU 

TST 

C$ ESCAPE 
L10022-. 

STPTBL(R5).aTKSA(R4) 

«6.R5 

5$ 

«)RPFLG.LUNrLG(R4) 

T4EXT 

ITRCNT 

T4EXT 

2$ 

PC.RSTVEC 
TST 

C$EXIT 
L10022 . 



BRANCH IF NOT 

JUST LOOK FOR STEP 4 BIT 

IT'S SET SO LET'S GO 

ERROR 

IF SA la WHAT UE EXPECT 
THEN MOVE ALONG 

:"SA CONTENTS IN ERROR' 



;URITE NEXT STEP TO UUT 
:IF NOT IN STEP 4 
sGO BACK TO MAIN LOOP 

;HAS UUT BEEN DROPPED 

.•LEAVE NOW IF SO 

sIF NO MORE ITERATIONS LEFT 

! THEN EXIT 

: ELSE 00 IT AGAIN 

s CATCH ILLEGAL INTERRUPTS 



C$ETST 
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SEQ 96 



3531 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3342 
3543 
3544 
3545 
3546 
3547 
3551 

3552 043714 
043714 

3553 

3554 043714 

3555 043722 

3556 043724 
043724 
043726 

3557 043732 
35b6 043740 

3559 043742 
0437'»2 
043746 
043752 
043756 
043760 
043762 

3560 043766 
043766 
043770 

3561 

3562 043772 

3563 044000 

3564 044006 

3565 044014 

3566 044022 

3567 044024 
3568 

3569 044032 
044032 
044036 

3570 044040 

3571 044044 

3572 044050 

3573 044056 

3574 044064 

3575 044070 

3576 044074 

3577 044102 
3578 

3579 044110 

3580 044114 



032764 
001423 

104421 
010037 
032737 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

104432 
000370 

052764 
012737 
012737 
022737 
001403 
012737 



012700 
104441 
004737 
012705 
012737 
016437 
006237 
006237 
052737 
016437 

004737 
005737 



.SBfTL TEST 5: BR LE"EL TEST 

; ******************* 
•***********************************************«**««««««««««««« 

TEST 5 - BR LEVEL TEST 

THIS TEST INSURES THAT Th€ TK50 CAN NOT INTERRUPT 
UHEN THE CPU PRIORITY IS SET TO 7. THE TEST GOES 
ONLY THROUGH THE FIRST STEP OF THE INIT SEQUENCE 
SINCE THE CONTROLLER UILL "HANG* WAITING FOR THE 
INTERRUPT ACKNOWLEDGE. 

;*****«.********************•***************************««««««««« 
5 ••••••••••••*••••••***•*♦•♦♦•*♦*••*••****♦*♦*♦♦♦♦♦ ************* 

BGNTST 



T5:: 



000001 000014 



002334 

001000 002334 



002114 
047626 
000002 



000006 



000004 
032640 
000001 
000001 



000014 
002310 
002272 
002270 



1): 



G05: 



000002 002272 



000340 

036316 
000000 

000001 002316 
000004 002250 
002250 
002250 

104600 002250 
000004 002260 

036434 
002320 



21: 



BIT 


«)RPFLG.LUNFLG(R4) 


DC.U 




RFLAGS 


FLAGS 


TRAP 


C*RFLA 


MOV 


RO. FLAGS 


BIT 


#PNT. FLAGS 


BEQ 


11 


PRINTF 


«YPASS. LITEST 


MOV 


L$T£ST. (SP) 


MOV 


♦BYPASS. -(SP) 


MOV 


#2.-(SP) 


MOV 


SP.RO 


TRAP 


CJPNTF 


ADD 


»W t Or 


EXIT 


TST 


TRAP 


c»exiT 


.IIORD 


L10023-. 


BIS 


«6RFLAG,LUNFLG(R4) 


nov 


•CTRL.FRUIS 


MOV 


#1,ITRCNT 


CMP 


«1.PASCNT 


BEQ 


2) 


MOV 


*2.ITRCNT 


SETPRI 


#PRI07 


MOV 


«'RI07.R0 


TRAP 


C$SPRI 


JSR 


PC. VECTOR 


MOV 


#0.R5 


MOV 


♦l.INISTP 


MOV 


TKVEC(R4).STPTBL 


ASR 


STPTBL 


ASR 


STPTBL 


BIS 


♦104600. STPTBL 


MOV 


TKVEC(R4).CMPTBL 


JoR 


PC.STEPl 


TST 


STEPST 



IF UUT NOT DROPPED 

THEN DO TEST 
ELSE GO GET SUPRVISOR FLAGS 

SEE IF WE'RE PRINTING TEST NUMBERS 
NO. DON'T PRINT BYPASSED 
ELSE PRINT THE TEST 



; BYPASSED MESSAGE AND GET OUT 



DO TEST WITH HIGH PRIORITY 
FAILING FRU IN CASE OF ERROR 
SET UP FOR ONE TEST ITERATION 
IF FIRST PASS 
THEN START TEST 
ELSE DO 10 ITERATIONS 

;CPU PRIORITY = 7 



SET UP VECTOR WITH INTERRUPT HANDLER 
SET UP R5 AS INDEX TO STEP TABLES 
STEP 1 FOR ERROR PRINTOUT 
PUT VECTOR IN STEP 1 
DIVIDE BY TWO 
DIVIDE BY FOUR 
REST OF STEP ONE 
STEP 1 COMPARE VALUE 

:G0 DO IT 

sIF STATUS OKAY 
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3581 044120 


001412 








BEQ 


3582 












3583 044122 










ERROF 


044122 


104455 








TRAP 


044124 


000016 








.UORO 


044126 


030465 








.WORD 


044130 


032740 








.WORD 


3584 044132 










CKLOOP 


044132 


104406 








TRAP 


3585 044134 










DODU 


044134 


013700 


002312 






MOV 


044140 


104451 








TRAP 


3586 044142 










ESCAPE 


044142 


104410 








TRAP 


044144 


000214 








.UORO 


3587 












3588 044146 


012737 


000100 


002326 


5»: 


MOV 


3589 044154 


016537 


002260 


002314 




MOV 


3590 044162 


012737 


037200 


002324 


7»: 


MOV 


3591 044170 


004737 


036406 




9$: 


JSR 


3592 044174 


005737 


002330 






TST 


3593 044200 


001770 








BEQ 


3594 












3595 044202 


017464 


000002 


000012 




MOV 


3596 044210 


023764 


002314 


000012 




CMP 


3597 044216 


001412 








BEQ 


3598 












3599 044220 










ERROF 


044220 


104455 








TRAP 


044222 


000021 








.UORO 


044224 


030465 








.UORO 


044226 


032740 








.UORO 


3600 044230 










CKLOOP 


044230 


104406 








TRAP 


3601 044232 










OODU 


0442?2 


013700 


002312 






MOV 


044236 


104451 








TRAP 


3602 044240 










ESCAPE 


044240 


104410 








TRAP 


044242 


000116 








.UORO 


3603 












3604 044244 


032764 


000002 


000014 


10): 


BIT 


3605 044252 


001415 








BEQ 


3606 044254 


042764 


000002 


000014 




BIC 


3607 044262 










ERROF 


044262 


104455 








TRAP 


044264 


000022 








.UORO 


0<f4266 


030601 








.WORD 


044270 


032740 








.UORO 


3608 044272 










CKLOOP 


044272 


104406 








TRAP 


3609 044274 










OOOU 


044274 


013700 


002312 






MOV 


044300 


104451 








TRAP 


3610 044302 










ESCAPE 


044302 


104410 








TRAP 


044304 


000054 








.UORO 
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SEQ 9-' 



5» 

14. .EMSG9.PRIINI 

CJEROF 

14 

EMSG9 
PRIINI 

CJCLPl 

LOGUNT 

LOGUNT.RO 

CtOOOU 

TST 

CJESCAPc 
L10023-. 

0100. OUTER 

CMPTBL(R5).SAEXP 

C16000., INNER 

PC.POELAY 

TOUT 

7» 

aTKSA(R4),TKSASVCR4) 

SAEXP.TKSASV(R4} 

10) 

17.. EMSG9, PRIINI 

OEROF 

17 

EMSG9 
PRIINI 

C»CLP1 

LOGUNT 

LOGUNT.RO 

ODOOU 

TST 

OESCAPE 
L10023-. 

*INTFLG.LUNFLG(R4) 
20) 

#INTFLG,LUNFLG(R4) 
18.. EMSG12. PRIINI 
OEROF 
18 

EMSG12 
PRIINI 

OCLPl 

LOGUNT 

LObUNT.RO 

OOOOU 

TST 

OESCAPE 
L10023-. 



; THEN CONTINUE TEST 
j"SA CWTENTS IN ERROR' 



•LOOP ON ERROR? 
;OKOP UUT 

:LEAVE TST 



SET UP FOR P/tLAY ROUTINt 

set up for compare 
set up inner 

elsl give uut some time 
if timeout yet 

then go take another look 

get sa contents 
:f contents okay 
then check for interrupt 

'sa contents in error" 



IF NO INTERRUPT OCCURREO 

THEN CARRY ON UITH TEST 
CLEAR FLAG IN CASE UE'RE LOOPING 
"INTRRPT UITH CPU PRIORITY «7" 
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3611 













2P*: 


ScTPRI 


«PRI00 






A1 07AA 


OOWW 






nov 


«PRI00.R0 














TOAD 

1 HKr 


CfSPRI 


OOlO 




AAA^AA 








NOP 








AAA9AA 








NUr 








0#i; f 0# 




AAA/. 4 A 
000014 




BIC 


*INTFLG . LUNFLGCR4 ) 


oolo 


















OOC rO«» 


OUOOUl 


AAAA4 A 
000014 




OTT 

BIT 


90RPFLG.L(MFLGCR4) 




Ail JtT»J 


AA1 A AC 
OOlOOD 








BNc 


T5EXT 


3619 


044336 


005337 


002272 






DEC 


ITRCNT 


3620 


044342 


001402 








BEQ 


T5EXT 






00013' 








Jfir 


2* 


















3623 


044350 


004737 


036266 




T5EXT: 


JSR 


PC.RSTVEC 


3624 


044354 
044354 
044356 


000002 








EXIT 
TPAP 

.UORO 


TST 

L10023-. 


3625 
















3626 


044360 
044360 
044360 


104401 






L10023: 


ENOTST 
TPA" 


CJETST 



jCPU PRIORITY - 0 



! DELAY FOR PENDING INTERRUPT 
: CLEAR THE FLAG NOW 

:HAS UUT BEEN DROPPED 

i LEAVE NOW IF SO 

;IF NO MORE ITERATIONS LEFT 

i THEN EXIT 

! ELSE DO IT AGAIN 

: CATCH ILLEGAL INTERRUPTS 



HARDWARE TEST riACftO Y05.02 
TEST 6: PURGE AND POLL TEST 



3629 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3655 

3656 044362 
044362 

3657 

36^8 044362 032764 

3659 044370 001423 

3660 0443 7Z 
044372 104421 
044374 010037 

3661 044400 032737 

3662 044406 001412 

3663 044410 
044410 013746 
044414 012746 
044420 012746 
044424 010600 
044426 104417 
044430 062706 

3664 044434 
044434 104432 
044436 000542 

3665 

3666 044440 012737 

3667 044446 012737 

3668 044454 022737 

3669 044462 001403 

3670 044464 012737 
3671 

3672 044472 012705 

3673 044476 012737 

3674 044504 016437 

3675 044512 006237 

3676 044516 006237 

3677 044522 013737 

3678 044530 052737 

3679 044536 

0445 36 104407 
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.SBTTL TEST 6: PURGE AND POLL TEST 

: *************************************************************** 
; *************************************************************** 

TEST 6 - PURGE AND POLL TcST 

THIS TEST WILL AGAIN RUN THROUGH THE INIT SEQUENCE. THIS 
TIME SETTING THE "PURGE AND POLL" BIT IN STEP 3. THIS 
SHOULD CAUSE THE PORT TO DMA VARIOUS DATA PATTERNS TO 
AND FROM THE COMMUNICATIONS AREA AND FINALLY LEAVE IT 
CLEARED BEFORE TRANSITIONING TO STEP 4. THE PROGRAM WILL 
HAVE FILLED THIS AREA WITH A BACKGROUND PATTERN OF ALL 
I'S DATA PRIOR TO STARTING THE INIT. WHNE STEP 4 IS 
REACHED. THE PROGRAM WILL VERIFY THAT THE COMM AREA IS 
ALL O'S. AND THAT THE 20 WORDS PRECEDING AND SUCCEEDING 
THE com AREA ARE UNTOUCHED. RING DEPTH USED IN THIS 
TEST IS THE MINIMUM. 

; ************************************ ^* ********** ************** 
; *************************************************'<******«***** 4. 



SEQ 99 



002114 
047626 
000002 



000006 



032640 
000001 
000001 



000000 
000001 
000004 
002250 
002250 
002250 
104400 



T6: 



BGNTST 



000001 000014 



002334 

001000 002334 



002310 
002272 
002270 



000012 002272 



1): 



G06: 



2$: 



002316 
002250 



002264 
002250 



BIT 


«)RPFLG,LUNFLG(R4) ;IF UUT NOT DROPPED 


BEQ 


G06 


THEN DO TEST 


RFLAGS 


FLAGS lELSE GO GET SUFRVISOR FLAGS 


TRAP 


C»RFLA 




MOV 


RO, FLAGS 




BIT 


♦PNT, FLAGS 


SEE IF WE'RE PRINTING TEST NUMBERS 


BEQ 


1) 


NO. DON'T PRINT BYPASSED 


PRINTF 


♦BYPASS, LITEST 


ELSE PRINT THE TEST 


MOV 


LITEST. -(SP) 




MOV 


•BYPASS. -CSP) 




MOV 


#2.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADO 


«6.SP 




EXIT 


TST 


BYPASSED hESSAGE AND GET OUT 


TRAP 


CJEXIT 




.WORD 


L10024-. 




MOV 


♦CTRL.FRUIS 


[FAILING FRU IN CASE OF ERROR 


MOV 


♦l.ITRCNT 


SET UP FOR ONE TEST ITERATION 


CMP 


♦l.PASCNT 


,IF FIRST PASS 


BEQ 


2» 


THEN START TEST 


MOV 


#10, .ITRCNT 


ELSE 00 10 ITERATIONS 


MOV 


♦0.R5 


SET UP R5 AS INDEX TO STEP TABLES 


MOV 


n.INISTP 


STEP 1 FOR ERROR PRINTOUT 


MOV 


TKVEC(R4).STPTBL 


PUT VECTOR IN STEP 1 


ASR 


STPTBL 


DIVIDE BY TWO 


ASR 


STPTBL 


DIVIDE BY FOUR 


MOV 


STPTBL. CMPTBL»4 


PUT VECTOR IN STEP 3 COMPARE 


BIS 


*1 04400. STPTBL 


REST OF STEP ONE 


REAOBUS 


sIF QBUS 


TRAP 


C$ROBU 
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3680 044540 










BCOMPLEfE 3$ 


044540 


103404 








6CS 


3j 


3691 044542 


012737 


004700 


002260 




nov 


44700 CnPTBL 


3602 044SS0 


000403 








BR 




3693 044552 


012737 


005700 


002260 


3*: 


MOV 


M Sl'B QB'B DI'B 00* 


3684 














3685 044560 


012737 


060050 


002252 


41: 


nov 


M!QnnAR STPTBL*2 


3686 044566 


012737 


010211 


002262 




10V 


0010211 CnPTBL*^ 


3687 044574 


012737 


100000 


002254 




nov 


96.PP, STPTBL*4 


3688 044602 


112737 


000040 


002265 




novB 


^40 aiPTBL*S 


3689 014610 


012737 


000000 


002256 




nov 


«0.STPTBL*6 


3690 044616 


012737 


040000 


002266 




nov 


<K)40000 . CnPTBL *b 


3691 














3692 044624 


012737 


000012 


002306 




nov 


#10 .CnARLG 


3693 044632 


004737 


036560 






JSR 


PC.BAKPAT 


3694 














3695 044636 


004737 


036434 






JSR 


PC.STEPl 


3696 04<»642 


005737 


002320 






TST 


STEPST 


3697 044646 


001412 








BEQ 


5$ 


3698 














3699 044650 










ERROF 


19. ,EnSG9,PRIINI 


044650 


104455 








TRAP 


OEROF 


044652 


000023 








.WORD 


19 


044654 


030465 








.UCRO 


EnSG9 


044656 


032740 








.UORD 


PRIINI 


3700 044660 










CKLOOP 




044660 


104406 








TRAP 


C»CLP1 


3701 044662 










OOOU 


LOGUNT 


044662 


013700 


002312 






nov 


LOGUNT.RO 


044666 


104451 








TRAP 


CJOGOU 


3702 044670 










ESCAPE 


TST 


044670 


104410 








TRAP 


C^ESCAPE 


044672 


000306 








.UORO 


L10024-. 


3703 














3704 044674 


005237 


002316 




5): 


INC 


INISTP 


3705 044700 


062705 


000002 






ADO 


«2,R5 


3706 044704 


012737 


000100 


002326 


e»: 


nov 


«1 00, OUTER 


3707 044712 


016537 


002260 


002314 




nov 


CnPTBL(RS},SAEXP 


370S 044720 


012737 


037200 


002324 


7$: 


nov 


*16000 . , INNER 


3709 044726 


017464 


000002 


000012 




nov 


9TKSA( R4 } . TKSASV(R4 ) 


3710 044734 


022705 


000006 






cnp 


«6,R5 


3711 044740 


001005 








BNE 


8) 


3712 044742 


033764 


002314 


000012 




BIT 


SAEXP,TKSASV(R4} 


3713 044750 


001024 








BNE 


10 > 


3714 044752 


000404 








BR 


9) 


3715 044754 


023764 


002314 


000012 


8$: 


cnp 


SAEXP.TKSASV(R4) 


3716 044762 


001417 








BEQ 


10* 


3717 044764 


004737 


036406 




9$: 


JSR 


PC.POELAY 


3718 044770 


005737 


002330 






TST 


TOUT 


3719 044774 


001751 








BEQ 


7$ 


3720 














3721 044776 










ERRDF 


20, .EnSG9, PRIINI 


044776 


104455 








TRAP 


C»ERDF 


045000 


000024 








.WORD 


20 


045002 


030465 








.WORD 


EnSG9 


045004 


032740 








.WORD 


PRIINI 


3722 045006 










CKLOOP 





SEQ 100 



: THEN BR FQR QfiJS 1 i UP 
: ELSE SET UP FOR UNIBUS 

.np.cnPTdL 

:STEP 1 COMPARE VALUE 

sSTEP 2 - conn AREA ADDRESS 

:STEP 2 COnPARE 

:STEP 3 - HIGH ADDRESS AND PRGE/POLL 

sREST OF STEP 3 COMPARE 

;STEP 4 

:STEP 4 COnPARE 

jLENGTH OF COHH AREA FOR THIS TEST 

sFILL conn AREA WITH ALL I'S DATA 

:G0 DO IT 

;IF STATUS OKAY 

! THEN CONTINUE TEST 

i"SA CONTENTS IN ERROR' 



iLOOP ON ERROR? 
jOROP UUT 

{LEAVE TST 



ADJUST ST-o COUNTER 
ADJUST TABuE INDEX 
SET UP FOR DELAY ROUTINE 
SET UP FOR COnPARE 
SET UP INNER 
GET SA CONTENTS 
ARE UE IN STEP 4? 
BRANCH IF NOT 
JUST LOOK FOR STEP 4 BIT 
IT'S SET SO LET'S GO 
STAY IN LOOP OTHERWISE 
IF SA IS UHAT UE EXPECT 

THEN nOVE ALONG 

ELSE GIVE UUT SOHE TIHE 
IF NO TIHEOUT YET 

THEN GO TAKE ANOTHER LOOK 



{"SA CONTENTS IN ERROR" 









•* J* sday 


0^ L.t 

C J- Jul' 
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TEST 6: PURGE 


*W POLL 


TEST 


















TO an 
1 KIW 


L»LLrl 














AAAl 1 


1 Af^l MJT 






At >7AA 








MAU 


1 Af^l MIT OA 






1 AX ICl 








TO AO 

1 Knr 


r « AAAl 1 

U'UUUU 
















TC T 

lb 1 






1 AAA 1 n 








TOAD 


p4CCPAOfc 

LvcoLArt 






UVvlDV 








■J ADA 

.WORD 


L10024 . 






















01 A^7A 
VX03 f ^ 


AApOCA 


Aft Art 




HAU 

nuv 


3 1 r 1 DLIK3^ i«IKonlK4 j 


,URlTc NEXT STEP TO UUT 


T757 OACnXO 


A9a7Ai: 


UOUOVW 






TMO 

Lnr 


W , K3 


TC PTCO * 

sir STEP 3 




(Ml AAA 








RPO 
DCU 




S incN DO PURGE/POLL STUFF 




A997A«; 








TMO 


TO ,K3 


TC unT TU f^TPn M 

tir NOT IN STEP 4 


S750 










RNP 

one 


c* 
3# 


TUCU f*A DS^l/ TA UHVLI 1 AAn 

; intN bO BACK TO MAIN LOOP 




AAAAAA 








AD 

Dn 


9At 


i ELSE GO CHECK RESULTS 


y f 0€ 
























nn Av 


1 


iGIVE PORT SOME TIME 




A1 0707 








MAW 


01 . IrC i ♦ 




AAAAA/) 
UUUUUW 








• WUKU 


A 






A1 T707 








nuv 


1 cm V ^D^^^ 
L«ULT , IrL ^ * 














unon 


A 




nAtmm 










UC.L 


-OlrC } 






AA 1 








DKIC 

dnc 


A 






AAC«<7 

UU3a0f 


1 777^<i 






ncr 
UcL 


Of* ^ 






AA « V&7 








Due 


OA 






A1 7AAA 


AAAAA9 


AAAA1 9 




nuv 


flTI^CAf DA ^ TI/CACWfDA^ 


f*CT CA AAfclTCklTf 

iGET SA CONTENTS 




AA 1 A 1 9 








DCU 


10 9 


! BRANCH IF OKAY 


d f do 














X7V7 AAmAA 










CO DAP 


91 CMCf^ll DDTTklT 


iSA NOT 0 IN PURGE /POLL 




1 AAA «^ 








TOAD 


LJtRDr 




AAAA9e 








UADA 


cl 






AYAA<\A 
V0VO3U 








UADA 
. MUKU 






(SA did 


AT97AA 








unon 

. WUKU 


DDTTUT 
rKli.Nl 




9 ( on ID 










rw\ nno 
Lf\LUUr 






(SA m 1 A 


1 AAAAt^ 








TD AD 
1 KHr 


f* t f*l D 1 














UUUU 


1 t\r\ iwT 
LUuUN 1 




A^ C i 9 A 


A1 T7nA 


AA^TI 0 
OOcdXC 






nuv 


1 nn lUT DA 
LUuUNI ,KU 




1 0A 


1 AAAm 








TD AD 
1 Knr 


Lf UUUU 




t7AA AAI(19<L 










per ADP 


TCT 






1 AAA 1 A 








TD AD 
1 Knr 


f^tCCf^ADC 




m xi\ 


AAAACA 

UUVU3U 








• WUKU 


1 1 AA 9 A 




T7A 1 


















A1 977A 


AAAAAA 
VUOOUU 


AArtrtrt9 




nuv 


AA QTl/CAfDA^ 


IIOTTC A 1 TA 

iWRIlE O'S TO SA 




AA';77A 
VU3 f f 


WUUvU 






TCT 


attfTDi OA 1 
V 1 Mrv Kn ^ 


. Aklfl DCAA TD 

[MNU KtAD IP 


3744 045144 
374^ 


000653 








BR 


SI 


,G0 WAIT FOR NEXT TRANSITION 




/Of 






9rt ft • 


ICO 


DP CUi/f^nH 
rL » LnJvLUn 


ijO CHtLK cunn area 


t7A7 nAl(t^9 


VOC ' OH 


AAAAA1 


A AAA 1 A 




BTT 


AAODPI r 1 1 IklPl P/'DA'^ 
vUKrr Lu « LUNr LulK4 > 


UAC 1 11 IT DCCki ADADDCA 

HHb UUI Dttn UKUrrbU 


0 mo w^oiov 










BMP 
DnC 


T^iPYT 
1 OC.A 1 


1 CAVyC UAIJ TC CA 

LtnVt NUM Ir bU 


T7AQ t\AK\tki 
9 v43XOc 


W J 0 0 r 


AA5P75 








TTOrWT 
X 1 KLN 1 


TC KIA MADC TTCDATTAUC 1 CCT 

Ir NU nUKC lltKHIlUNo Ltr 1 




AAI ^ A3 








DCU 


T<iCVT 


TUCki 1 CAIIC TCCT 

IntN LtAVt Itol 


T7C1 AAK1 7A 




0«»H^ f C 






Jnr 




ELSE 00 IT AGAIN 


0 r 3c 














Xl^X nA<(1 7A 
9 r j9 3 1 f ** 








TAFVT • 
IDCA 1 S 




TCT 




nA<C1 7A 
W^31 










TOAD 


P4PVTT 




AACI 7£ 
W31 lb 


AAAAA9 








UODA 


1 4 AA<4il 




X7KA 
9 l3^ 
















S7SS 04S20Q 










cnu 1 o 1 







SCO 101 
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TEST 6: PURGE AW POLL TEST 

045200 L10024: 

045200 1C4401 TRAP C»ETST 
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TEST 7; nAXIHUM RING BUFFER TEST 



SEQ 103 



J 75$ 
3759 

3760 045202 

3761 045202 

3762 
3763 
3764 
3765 
3766 
3/67 
3768 

3769 045202 

3770 045202 
3771 



.SBTTL TEST 7: MAXimjM RING BUFFER TEST 
STARS 



STARS 

TEST 7 - MAXIMUM RING BUFFER TEST 

THIS TEST IS SIMILAR TO TEST 5. BUT IT WILL UTILIZE 
THE MAXIMUM ALLOWABLE RING DEPTH AS SPECIFIED IN 
UQSSP. THIS VALUE IS EQUAL TO 128 COMMANO AND 128 
RESPONSE SLOTS OF 32 BITS PER SLOT. 



STARS 



STARS 

A* ************************************ A******* *********** 



3772 045202 










BGNTST 






045202 








T7: : 








3773 
















3774 045202 


032764 


000001 


000014 




BIT 


♦ORPFLG , LUNFLGC R4 ) 


jIF UUT NOT DROPPED 


3775 045210 


001423 








BEQ 


G07 


s THEN DO TEST 


3776 045212 










RFLAGS 


FLAGS 


iELSE GO GET SUPRVISOR FLAGS 


045212 


104421 








TRAP 


C»'^FLA 




045214 


010037 


002334 






MOV 


RO, FLAGS 




3777 045220 


032737 


001000 


002334 




BIT 


«PNT, FLAGS 


J SEE IF WE'RE PRINTING TEST NUMBERS 


3778 045226 


001412 








BEQ 


1$ 


iNO, DON'T PRINT BYPASSED 


3779 045230 










PRINTF 


#B YP ASS, L* TEST 


! ELSE PRINT THE TEST 


045230 


013746 


002114 






MOV 


L»TEST,-(SP) 




045234 


012746 


047626 






MOV 


♦BYPASS, -CSP) 




045240 


012746 


000002 






MOV 


42, -CSP) 




045244 


010600 








MOV 


SP,RO 




045246 


104417 








TRAP 


C$PNTF 




045250 


062706 


000006 






ADO 


•6.SP 




3780 045254 








1* : 


EXIT 


TST 


.OVDACCCn MCCCAPC AUn PCT ni IT 


045254 


104432 








TRAP 


C»EXIT 




045256 


000542 








.WORD 


L10025-. 




3781 
















3782 045260 


012737 


032640 


002310 


G07: 


MOV 


«CTRL.FRUIS 


: FAILING FRU IN CASE OF ERROR 


3783 045266 


012737 


000001 


002272 




MOV 


Ol.ITRCNT 


iSET UP FOR ONE TEST ITERATION 


3784 045274 


022737 


000001 


002270 




CMP 


41.PASCNT 


J IF FIRST PASS 


3785 045302 


001403 








BEQ 


2) 


; THEN START TEST 


3786 045304 


012737 


000012 


002272 




MOV 


♦10.,ITRCNT 


i ELSE DO 10 ITERATIONS 


3787 

3788 045312 


012705 


000000 




2$: 


MOV 


«0.R5 


iSET UP R5 AS INDEX TO STEP TABLES 


3789 045316 


012737 


000001 


002316 




MOV 


n.INISTP 


iSTEP 1 FOR ERROR PRINTOUT 


3790 045324 


016437 


000004 


002250 




MOV 


TKVECCR4).STPTBL 


:PUT VECTOR IN STEP 1 


3791 045332 


006237 


002250 






ASR 


STPTBL 


; DIVIDE BY TWO 


3792 045336 


006237 


002250 






ASR 


STPTBL 


{DIVIDE BY FOUR 


3793 045342 


013737 


002250 


002264 




MOV 


STPTBL. CMPTBL*4 


(PUT VECTOR IN STEP 3 COMPARE 


3794 045350 


052737 


137400 


002250 




BIS 


♦137400, STPTBL 


;REST OF STEP ONE 


3795 045356 










READBUS 




:IF QBUS 


045356 


104407 








TRAP 


ORDBU 




3796 045360 










BCOMPLETE 3» 


: THEN BR FOR QBUS SET UP 


045360 


103404 








BCS 


3) 


: ELSE SET UP FOR UNIBUS 


3797 045362 


012737 


004700 


002260 




MOV 


♦4700,CMPTBL 
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TEST 7: MAXIMUM RING BUFFER TEST 



3798 045370 


000403 








BR 


4* 


3799 045372 


012737 


005700 


002260 


3 : 


MOV 


«e.Sl!B.QB!B.Dl!B.00 


3800 














3801 045400 


012737 


060050 


002252 


4»: 


MOV 


♦C0MMAR.STPTBL*2 


3802 045406 


012737 


010277 


002262 




MOV 


0010277. CMPTBL*2 


3803 045414 


012737 


100000 


002254 




MOV 


•e.PP.STPTBL»4 


3804 045422 


112737 


000040 


002265 




MOVB 


*40.CMPTBL*5 


3805 045430 


012737 


000000 


002256 




MOV 


«0.STPTBL»6 


3806 045436 


012737 


040000 


002266 




MOV 


«040000.CMPTBL»6 


3807 














3808 045444 


012737 


001002 


002306 




MOV 


*514 . . CMARLG 


3809 045452 


004737 


036560 






JSR 


PC.BAKPAT 


3810 












3811 045456 


004737 


036434 






JSR 


PC.STEPl 


3812 045462 


005737 


002320 






TST 


STEPST 


3813 045466 


001412 








BEQ 


5* 


3814 














3815 045470 










ERROF 


22. .EMSG9.PRIINI 


045470 


104455 








TRAP 


OEROF 


045472 


C00026 








.WORD 


22 


045474 


030465 








.WORD 


EMSG9 


045476 


032740 








.WORD 


PRIINI 


3816 045500 










CKLOOP 




045500 


104406 








TRAP 


CJCLPl 


3817 045502 










OOOU 


LOGUNT 


045502 


013700 


002312 






MOV 


LOGUNT.RO 


045506 


104451 








TRAP 


ClOODU 


3818 045510 










ESCAPE 


TST 


045510 


104410 








TRAP 


C$ ESCAPE 


045512 


000206 








.WORD 


L10025-. 


3819 














3820 045514 


005237 


002316 




5): 


INC 


INISTP 


3821 045520 


062705 


000002 






AOO 


«2.R5 


3822 045524 


012737 


000100 


002326 


6$: 


MOV 


#100. OUTER 


3823 045532 


016537 


002260 


002314 




MOV 


CMPTBL(R5).SAEXP 


3824 045540 


012737 


037200 


002324 


7$: 


MOV 


#16000.. INNER 


3825 045546 


017464 


000002 


000012 




MOV 


aTKSA(R4),TKSASV(R4) 


3826 045554 


022705 


000006 






CMP 


«6.R5 


3827 045560 


001005 








BNE 


8) 


3828 045562 


033764 


002314 


000012 




BIT 


SAEXP.TKSASV(R4} 


3829 045570 


001024 








BNE 


10) 


3830 045572 


000404 








BR 


9» 


3831 045574 


023764 


002314 


000012 


8): 


CMP 


SAEXP,TKSASV(R4) 


3S32 045602 


001417 








BEQ 


10» 


S8SS 04S604 


004737 


036406 




9$: 


JSR 


PC.PDELAY 


3SS4 045610 


005737 


002330 






TST 


TOUT 


S8SS 045614 


001751 








BEQ 


71 


38S6 














3837 045616 










ERROF 


23.. EMSG9. PRIINI 


045616 


104455 








TRAP 


C»EROF 


045620 


000027 








.WORD 


23 


04S622 


030465 








.WORD 


EMSG9 


045624 


032740 








.WORD 


PRIINI 


3838 045626 










CKLOOP 




045626 


104406 








TRAP 


C»CLP1 


3859 045630 










OOOU 


LOGUNT 


045630 


01S70C 


002312 






MOV 


LOGUNT.RO 



SEJ 104 



B.MP.CMPTBL 

:STEP 1 COMPARE VALUE 
:STEP 2 COMM AREA ADDRESS 
.STEP 2 COMPARE 

jSTEP 3 - HIGH ADDRESS AND PRCE/POLL 
:REST OF STEP 3 COMPARE 
;STEP 4 

sSTEP 4 COMPARE 

5 LENGTH OF COMM AREA FOR THIS TEST 
;FILL COMM AREA WITH ALL I'S DATA 

iGO DO IT 

;IF STATUS OKAY 

; THEN CONTINUE TEST 

;"SA CONTENTS IN ERROR" 



;LOOP ON ERROR? 
iDROP UUT 

:LEAVE TST 



ADJUST STEP COUNTER 
ADJUST TABLE INDEX 
SET UP FOR DELAY ROUTINE 
SET UP FOR COMPARE 
SET UP INNER 
GET SA CONTENTS 
ARE WE IN STEP 4? 
BRANCH IF NOT 
JUST LOOK FOR STEP 4 BIT 
IT'S SET SO LET'S GO 
STAY IN LOOP OTHERWISE 
IF SA IS WHAT WE EXPECT 

THEN MOVE ALONG 

ELSF GIVE UUT SOME TIME 
IF NO TIMEOUT YET 

THEN GO TAKE ANOTHER LOOK 



"SA CONTENTS IN ERROR" 



HAflOWARC TCST MAC«J 105.02 r»>ur»<««y 25- Jul 85 09:27 
*fS' HAHinuM RING aUFJ'EH TEST 



045634 104451 TRAP 

3S40 045636 ESCAPE 

045636 104410 TRAP 

045640 000160 .UORO 

^Ml 

3942 045642 016574 002250 000002 10>: HQV 

3843 045650 022705 000004 CMP 

3844 045654 001404 BEQ 

3845 045656 022705 000006 CMP 

3846 045662 001314 BNE 

3847 045664 000440 BR 
3848 

3849 045666 15t: DELAY 
045666 012727 OOOOCl MOV 
045672 OOOOCO .UOPO 
045674 013727 002116 MOV 
045700 000000 .UORD 
045702 005367 177^72 DEC 
045706 001375 BNE 
045710 005367 177756 DEC 
045714 001367 BNE 

3850 045716 017464 000002 000012 MOV 
3651 045724 001412 BEQ 
3852 

3853 045726 ERRDF 
045726 104455 TRAP 
045730 000030 .UORD 
045732 030650 .UORD 
045734 032^40 .UORD 

3854 045736 CKLOOP 
045736 104406 TRAP 

3855 045740 DODU 
045740 013700 002312 MOV 
045744 104451 TRAP 

3856 045746 ESCAPE 
045746 104410 TRAP 
045750 000050 .UORD 

3857 

3858 045752 012774 000000 000002 16$: MOV 

3859 045760 005774 000000 TST 

3860 045764 000653 BR 
3861 

3862 045766 004737 036610 20$: JSR 

'»863 045772 032764 000001 000014 BIT 

3864 046000 001005 BNE 

3865 046002 005337 002272 DEC 
3666 046006 001402 BEQ 
3867 046010 000137 045312 JMP 
3868 

3869 046014 T7EXT: EXIT 

046014 104432 TRAP 

046016 000002 .UORD 

3870 

3871 046020 ENDTST 

046020 L 10025: 

046020 104401 TRAP 
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CtOOOU 
TST 

CIESCAFE 
L10025-. 

STPTBL(R5).8TKSA(R4) 

«4.R5 

15i 

«6.R5 

5$ 

?0I 

1 

*1.(PC)* 

0 

L$DLY.(PC)» 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 

8TKSACR4},TKSASVCR4) 
16$ 

24..EMSG13.PRIISI 

C$ERDF 

24 

EMSG13 
PRIINI 

C$CLP1 
LOGUNT 
LOGUNT.RO 
C$DODU 

TST 

C$ESCAPE 
L10025-. 

♦0.aTKSA(R4) 

aTKIP(R4) 

5$ 

PC.CHKCOM 

«RPFLG,LUNFLGCR4) 

T7EXT 

ITRCNT 

T7EXT 

2$ 

TST 

CIEXIT 
L1002S-. 



SEQ 105 



jURITE NEXT STEP TO UUT 
ilf STEP 3 

s THEN DO PURGE/POLL STUTF 
J IF NOT IN STEP 4 
s THEN GO BACK TO MAIN LOOP 
! ELSE GO CHECK RESULTS 

:GIVE PORT SOME TIME 



sGET SA CONTENTS 
: BRANCH IF OKAY 

:SA NOT 0 IN PURGE /POLL 



WRITE O'S TO SA 
AND READ IP 

GO UAIT FOR NEXT TRANSITION 

GO CHECK COMM AREA 

HAS UUT BEEN DROPPED 

LEAVE NOW IF SO 

IF NO MORE ITERATIONS LEFT 

THtH LEAVE TEST 

ELSE DO IT AGAIN 



C$ETST 
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TEST 8: EXTENDED ADDRESS TEST 



SEQ 106 



3»r4 

38''6 046022 

3877 046022 

3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 

3886 Mb022 

3887 046022 
3888 



.SBTTL TEST 8: EXTENDED ADDRESS TEST 



STARS 
STARS 



;TEST 8 - EXTENDED ADDRESS TEST 

: THE FORMAT OF THIS TEST IS SIMILAR TO TEST 6. BUT THE 

! PROGRAM UILL ESTABLISH THE COMMUNICATION AREA IN THE 

J HIGHEST AVAILABLE MEMORY LOCATIONS. THIS UILL ALLOW 

! TESTING OF THE UPPER SIX BITS OF ADDRESS LOGIC ON THE 

s CONTROLLER BOARD. 



STARS 



STARS 



3889 


046022 
046022 








T8:: 


BGNTSr 






3890 


















3891 


046022 


032764 


000001 


000014 




BIT 


*DRPFLG.LUNFLG(R4) 


IF UUT NOT DROPPED 


5892 


046C30 


001423 








BEQ 


G08 


THEN DO TEST 


3893 


046032 
046032 


104421 








RFLAGS 
TRAP 


FLAGS 
CJRFLA 


ELSE GO GET SUPRVISOR FLAGS 




046034 


010037 


002334 






MOV 


RO. FLAGS 




3894 


046040 


032737 


001000 


002334 




BIT 


*PNT. FLAGS 


SEE IF UE'RE PRINTING TEST NUMBERS 


3895 


046046 


001412 








BEQ 


1» 


NO. DON'T PRINT BYPASSED 


3896 


046050 










PRINTF 


•BYPASS. L$ TEST 


ELSE PRINT THE TEST 




046050 


013746 


002114 






MOV 


LJTEST. CSP) 






046054 


012746 


047626 






MOV 


♦BYPASS, -CSP) 






046060 


012746 


000002 






MOV 


♦2. -CSP) 






046064 


010600 








MOV 


SP.RO 






046066 


104417 








TRAP 


C»PNTF 






046070 


062706 


000006 






ADD 


«6,SP 




3897 


046074 
046074 
046076 


104432 
000646 






1*: 


EXIT 
TRAP 
.UORD 


TST 

C»EXIT 
L 10026 


•BYPASSED MESSAGE AND GET OUT 


3898 


















3899 


046100 


005737 


002274 




G08: 


TST 


KTFLAG 


IF MEMORY MANAGEMENT AVAILABLE 


3900 


046104 


001002 








8NE 


1* 


THEN DO TEST 


3901 


046106 
046106 
046110 


104432 
000634 








EXIT 
TRAP 
.UORD 


TST 

CIEXIT 
L10026-. 


i ELSE GET OUT 


3902 


046112 


012737 


032640 


002310 


IJ : 


MOV 


♦CTRL.FRUIS 


FAILING FRU IN CASE OF ERROR 


3903 


046120 


012737 


000001 


002272 




MOV 


*1.ITRCNT 


SET UP FOR ONE TEST ITERATION 


3904 


046126 


022737 


000001 


002270 




CMP 


*1.PASCNT 


IF FIRST PASS 


3905 


046134 


001403 








BEQ 


2) 


THEN START TEST 


3906 


046136 


012737 


000012 


002272 




MOV 


#10. .ITRCNT 


ELSE DO 10 ITERATIONS 


3907 


















3908 


046144 


004737 


036742 




2»: 


JSR 


PC.INTMMU 


INITIALIZE MMU REGISTERS 


3909 


046150 


012705 


000000 




3$: 


MOV 


#0,R5 


SET UP R5 AS INDEX TO STEP TABLES 


3910 


046154 


012737 


000001 


002316 




MOV 


♦l.INISTP 


STEP 1 FOR ERROR PRINTOUT 


3911 


046162 


016437 


0C0004 


002250 




MOV 


TKVEC(R4),STPTBL 


PUT VECTOR IN STEP 1 


3912 


046170 


006237 


0^2250 






ASR 


STPTBL 


DIVIDE BY TWO 


3913 


046174 


006237 


002250 






ASR 


STPTBL 


DIVIDE BY FOUR 
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vvccDV 


VvccOn 




Hnu 








111 AlV) 


AOPPU 
vvcc^V 




RT<: 

DXO 




























TRAP 
1 n fir 


7 












ornMpi c 




















vie 1 0 1 


/\Ad7AA 
W*» * vv 


fVOPPAO 

VVklCOV 




Hnu 














RR 


3920 


046230 


vxc 1 s 1 




OOPPAfi 


1 1 1 • 

XX # ■ 


MOU 


3921 














3922 


046236 


01 37T7 
vie lot 




OOPPSP 


xc ▼ • 


MOU 
riu w 


3923 


046244 




AVVVVV 


WCC JC 




BTP 


3924 














3925 046252 


vXC I O 1 


vXvccc 


OOPP^^P 






3926 


046260 


ni ■^777 

O f O r 


1 7P'^4li 

1 ' C 


OOP'^'^P 

VwCd wC 




MOV 


3927 


046266 


XX O f ^ # 


WC w 1^ J 


OOPPSA 
wcc 




MnvR 

nvi WD 


3928 


046274 




VVCC 






ASR 


3929 


046300 




WCC J"* 






ASR 


3930 


046304 


VJC 1 ^ t 


X V w w 


00PPS4 

WCC 




DX i9 


3931 


046312 


X X £ I J ' 


000040 
wvvtv 


OOPPAS 

WCC 




HOUR 


3932 


046320 


VXC f ^ 1 


OOOOOO 
www 


OOPP% 

WCC v'w 




HOV 


3933 


046326 




040000 

V^ WW 


002266 

wcc vv 




HQV 


3934 














3935 


046334 


VXC ' ' 


w wcc 


G02306 

wc <^ w 




HQV 

■ IW w 


3936 


046342 




V J w-^vV 








3937 














3938 


046346 


004737 


036434 






JSP 


3939 046352 


005737 


002320 

WC wC V 






TST 


3940 


046356 


001412 










3941 














3942 


046360 










ERROF 




046360 


10445^ 

XV"»"» J J 








TRAP 




046362 


WVV WX 








• Hvn V 




046364 


030465 








UORD 




046366 


0327A0 








UORD 


3943 


046370 










CKLOOP 




046370 










TRAP 


3944 


046372 










OOOU 




046372 


013700 


002312 






MOV 




046376 


104451 








TRAP 


3945 


046400 










ESCAPE 




046400 


104410 








TRAP 




046402 










UORD 


3946 














3947 


046404 


0052 37 


002316 

WC V XV 




5$ • 


INC 


3948 


046410 


06P705 


000002 

WW vc 






ADD 


3949 


046414 


012737 

VAC ' 1^ ' 


000100 

WW X WW 


002326 

V V C «J b V 


6$ : 


MOV 


3950 


046422 


016537 


002260 

WWCab VW 


002314 




MOV 


3951 


046430 


012737 


037200 

V «J f c w 


002324 


7$ . 


MOV 


3952 


046436 


017464 


000002 

WW WW vc 


000012 

wwww xc 




MOV 


3953 


046444 


0PP705 

VC C ' V J 


000006 

WW WW WW 






CMP 


3954 


046450 


001005 








BNE 


3955 


046452 


033764 


002314 


000012 




BIT 


3956 


046460 


001024 








BNE 


3957 


046462 


000404 








BR 


3958 


046464 


023764 


002314 


000012 


8S: 


CMP 


3959 


046472 


001417 








BEQ 
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SEQ 107 



THEN BR FOR QBUS SET UP 
ELSE SET UP FOR UNIBUS 



STPTBL.CMPTBL»4 .-PUT VECTOR IN STEP 3 COMPARE 

•111000. STPTBL ;REST OF STEP ONE 

sIF QBUS 

ORDBU 

11) 

11) 

#4700.CMPTBL 
12) 

«8.S1!B.QB!B.DI!B.0D!B.MP.CMPTBL 

:STEP 1 COMPARE VALUE 
♦COMMAR. STPTBL ^2 -.STEP 2 - COMM AREA ADDRESS 

«BIT1S!BIT14!BIT13,STPTBL*2 

jCLEAR THE ACTIVE PAGE FIELD 
STEP 2 COMPARE 
GET RELOCATION VALUE 
JUST THE HGH BVTE 
MAKE IT THE EXTENDED 

ADDRESS OF THE COMM AREA 



♦010222, CMPTBL»2 
KPAR3.TEMP 
TEMP*1,STPTBL*4 
STPTBL ^4 
STPTBL ^4 
#B. PP. STPTBL ♦4 
#40.CMPTBL*5 
♦0. STPTBL ^6 
«040000.CMPTBL*6 

#18, .CMARLG 
PC.BAKPAT 

PC.STEPl 

STEPST 

5) 

25..EMSG9.PRIINI 

OEROF 

25 

EMS69 
PRIINI 

OCLPl 
LOGUNT 
LGGUNT.RO 
ODOOU 

rsT 

OESCAPE 
L10026 . 

INISTP 
#2.R5 

#100, OUTER 

CMPTbL(R5),SAEXP 

#16000. .INNER 

9TKSA(R4),TKSASV(R4) 

#6.R5 

8) 

SAEXP,TKSASV(R4) 

10) 

9) 

SAEXP.TKSASVCR4) 
10) 



NOW SET PURGE/POLL BIT 
REST OF STEP 3 COMPARE 
STEP 4 

STEP 4 COMPARE 

.•LENGTH OF COMM AREA FOR THIS TEST 
sFILL COMM AREA WITH ALL I'S DATA 

GO DO IT 

IF STATUS OKAY 

THEN CONTINUE TEST 

:"SA CONTENTS IN ERROR' 



:LOOP ON ERROR? 
jOROP UUT 

•.LEAVE TST 



ADJUST STEP COUNTER 
ADJUST TABLE INDEX 
SET UP FOR DELAY ROUTINE 
SET UP FOR COMPARE 
SET UP INNER 
GET SA CONTENTS 
ARE UE IN STEP 4? 
BRANCH IF NOT 
JUST LOOK FOR STEP 4 BIT 
IT'S SET SO LET'S GO 
STAY IN LOOP OTHERWISE 
IF SA IS WHAT WE EXPECT 
THEN MOVE ALONG 
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3%0 046474 004737 036406 9t: jSR 

3961 046500 005737 002330 TST 

3'>62 046504 001751 8EQ 
3963 

3964 046506 ERRDF 

046506 104455 TRAP 

046510 000032 .UORD 

046512 030465 .WORD 

046514 032740 .UORD 

39e5 046516 CKLOOP 

046516 104406 TRAP 

3966 046520 DODU 
046520 013700 002312 MOV 
046524 104451 TRAP 

3967 046526 ESCAPE 
0465iJ6 104410 TRAP 
046530 000214 .UORD 

5968 

3969 046532 016574 002250 000002 10): MOV 

3970 046540 022705 000004 CMP 

3971 046544 001404 BEQ 

3972 046546 02270S 000006 CMP 

3973 046552 001314 BNE 

3974 046554 000440 BR 
«975 

3976 046556 15* : DELAY 
046556 012727 000001 MOV 
046562 000000 .WORD 
046564 013727 002116 MOV 
046570 000000 .UORD 
046572 005367 17777c DEC 
046576 001375 BNE 
046600 005367 177756 DEC 
046604 001367 BNE 

3977 046606 017464 000002 000012 MOV 

3978 046614 001412 BEQ 
3979 

3980 046616 ERRDF 
046616 104455 TRAP 
046620 000033 .UORD 
046622 030650 .UORD 
046624 032740 .WORD 

3981 046626 CKLOOP 
046626 104406 TRAP 

3982 046630 OOOU 
046630 013700 002312 MOV 
046634 104451 TRAP 

3983 046636 ESCAPE 
046636 1044 IC TRAP 
046640 000104 .UORD 

3984 

3985 046642 012774 000000 000002 16$: MOV 

3986 046650 005774 000000 TST 

3987 046654 000553 3R 
3988 

3989 046656 004737 036610 20»: JSR 

3990 046662 032764 000001 000014 BIT 
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StQ 108 



PC .PDELAY 

TOUT 

7$ 

26. .EMSG9.PRIINI 

C$EROr 

26 

EMSG9 
PRIINI 

CtCLPl 
LOGUNT 
LOGUNT.RO 
ODOOU 

TST 

C$ ESCAPE 
L10026-. 

STPTBL(R5).aTKSA(R4) 

«4.R5 

15 » 

#6.R5 

Si 

20$ 



♦l.CPO* 
0 

LJDLY,(PCt* 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 

8TKSA(R4),TKSASV(R4) 
16) 

27. .EMSG13. PRIINI 

C$ERDF 

27 

EMSG13 
PRIINI 

CICLPl 

LOGUNT 

LOGUNT.RO 

C$DOOU 

TST 

C$ ESCAPE 
L 10026 -. 

#0.aTKSA(R4) 

aTKIP(R4) 

5» 

PC.CHKCOM 
♦DRPFLG.LUNFLG(R4) 



ELSE GIVE UUT SOME TIME 
IF NO TIMEOUT YET 

THEN GO TAKE ANOTHER LOOK 

j"SA CONTENTS IN ER«OR' 



WRITE NEXT STEP TO UUT 

IF STEP 3 

THEN DO PURGE/POLL STUFF 

IF NOT IN STEP 4 

THEN GO BACK TO MAIN LOOP 
ELSE GO CHECK RESULTS 

;GIVE PORT SOME TIME 



iGET SA CONTENTS 
: BRANCH IF OKAY 

jSA NOT 0 IN PURGE/POLL 



WRITE O'S TO SA 
AND READ IP 

GO WAIT FOR NEXT TRANSITION 

sGO CHECK COMM AREA 
;HAS UUT BEEN DROPPED 
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3991 


046670 


001021 








BNE 


T8EXT 


3992 
















3993 


046672 


062737 


002000 


172346 




ADD 


*2000.KPAR3 


3994 


046700 


103406 








BCS 


25 « 


3995 


046702 


023737 


002120 


172346 




CMP 


1 $HinE.KP/'R3 


3996 


046710 


103402 








BLO 


^'5f 


3997 


046712 


000137 


046150 






JHP 


3t 


3998 
















3999 


046716 


005037 


177572 




^5»: 


CLR 


ftlUSRO 


4000 


046722 


005337 


002272 






DEC 


ITRCNT 


4001 


046726 


001402 








BEQ 


T8EXT 


4002 


046730 


000157 


046144 






JflP 


2t 


4003 
















4004 


046734 


005037 


177572 




T8EXT: 


CLR 


unusRO 


4005 


046740 
046740 
046742 


104432 
000002 








EXIT 
TRAP 
.UORD 


'ST 

CSEXIT 
L10026 . 


4006 
















4007 


046744 
046744 
046744 


104401 






L10026: 


ENOTST 
TRAP 


CIETST 



SEQ 109 



sLEAVE NOU ir SO 

:POINT TO rCXT 32KW0R0S 
sDON'T ALLOW OVERFLOU ir 4 MBYTES 
;IF THERE'S NO MORE MEMORY AVAILABLE 
; THEN CHECK FOR MORE ITERATIONS 
; ELSE 00 IT AGAIN 

.•SHUT DOWN MEMORY MANAGEMENT 
;IF NO MORE ITERATIONS LEFT 
; THEN LEAVE TEST 
s ELSE DO IT AGAIN 



;MAKE SURE IT'S OFF 



HAROUARE TEST nACRO Y05.02 
TEST 9:GET OUST STATUS 

4010 
4011 

4012 046746 

4013 046746 

4014 
4015 
4016 
4017 
40ia 
4019 
4020 
4021 
4022 
4023 
4024 

4025 046746 

4026 046746 

4027 
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.SBTTL TEST 9:GET OUST STATUS 

STARS 

STARS 

:•*******•*****************************************************« 

TEST 9 - GET DUST STATUS 

THE GET DUST STATUS TEST MILL REQUEST AND TEST ThE DUST 
STATUS OF EACH UNIT UNDER TEST FOR TUG SPECIFIC CASES- 
1) NO COMMAND MODIFIERS SET AND 2) ILLEGAL COMMAND 
MODIFIERS SET. DUST STATUS WILL BE RECEIVED FROM THE 
UNIT UNDER TEST AFTER THE PROGRAM ISSUES THE GET DUST 
STATUS COMMAND AVAILABLE IN DUP. THE RESPONSE PACKET 
RECF.IVED FROM THE UNIT WILL BE TESTED AGAINST A KNOWN 
GOOD MASK. 

STARS 
STARS 



SEQ 110 













TO . • 

17:: 


0<~UT CT 

Dun 1 d 1 




























VOc t OH 








BTT 




;IS THE DRIVE AVAILABLE 




04<i7SA 










RPO 


0U7 


;G0 DO TEST IF AVAILABLE 




V"f w * JO 












CI line 


;EISE GO GET SUPRVISOR FLAGS 




V*tP f 










TRAP 








01 00 ''57 








nu V 






4033 


046764 


032737 


001000 


002334 




BIT 


^NT AGS 

WT *^ 1 ( ( *rlUw 


■ dec ±r Mc nc rniriliriu IC9l NUnDCNo 


4034 


046772 


001412 








BEQ 


1* 


iNG. DON'T PRINT BYPASSED 


4035 


046774 










PRINTF 


#BYP ASS, LATEST 


; ELSE PRINT THE TEST 




046774 


013746 


002114 






MOV 


L*TEST. (SP) 




047000 


012746 


047626 






MOV 


♦BYPASS, -CSP) 






047004 


012746 


000002 






MOV 


♦2,-(SP) 






047010 


010600 








MOV 


SP.RO 






047012 


104417 








TRAP 


C»PNTF 






047014 


062706 


000006 






ADD 


#6.SP 




4036 


047020 








1): 


EXIT 


TST 


! BYPASSED MESSAGE AND GET OUT 




047020 


104432 








TRAP 


C»EXIT 




047022 


000132 








.WORD 


L10027-. 




4037 


















4038 


047024 


0427f » 


000010 


000014 


G09: 


BIC 


#0UPFLG,LUNFLG(R4) 


; CLEAR DUP FLAG 


4039 


047032 


012737 


032640 


002310 




MOV 


#CTRL,FRUIS 


iSET UP FRU POINTER 


4040 


047040 


004737 


037042 






JSR 


PC.PRTINT 


, GO 00 A PORT INITIALIZE 


4041 


047044 


032764 


000001 


000014 




BIT 


»0RPFLG,LUNFLG(R4) 


IS THE DRIVE AVAILABLE 


4042 


047052 


001036 








BNE 


T9EXT 


GET OUT IF NOT AVAILABLE 


4043 


047054 


012705 


002342 






MOV 


«SCTRLC.R5 


SET UP TO 00 THE SCC COMMAND 


4044 


047060 


012737 


000001 


002272 




MOV 


♦l.ITRCNT 


00 IT ONCE 


4045 


047066 


012737 


032663 


023042 




MOV 


«SCCCMO.CURCMO 


SET UP COMMAND ASCII 


4046 


04^074 


004737 


037274 






JSR 


PC.CLSORV 


GO ISSUE THE COMMAND 


4047 


047100 


032764 


000001 


000014 




BIT 


*0RPFLG.LUNFLG(R4) 


IS THE DRIVE AVAILABLE 


4048 


047106 


001020 








BNE 


T9EXT 


GET OUT IF NOT AVAILABLE 


4049 


047110 


052764 


000010 


000014 




BIS 


#0UPPLG,LUNFLG(R4) 


SET DUP FLAG FOR FOLLOWING COMMAND 


4030 


047116 


012705 


002456 






MOV 


♦G0UST.R5 


SET UP TO 00 GET OUST STATUS COMMAND 


4C51 


047122 


012737 


000001 


002272 




MOV 


♦l.ITRCNT 
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4052 047130 

4053 047136 
047142 
047150 
047150 
047152 
047154 
047154 
047154 



4054 
4055 



4056 



012737 
004737 
042764 

104432 
000002 



104401 



032714 
037274 
000010 



023042 
000014 



T9EXT: 



L10027: 



nOV «GOSCt1D.CURCnO 

JSR PC.CLSORV 

BIC «0UPFLG.LUNrLG(R4 

EXIT TST 

TRAP CIEXIT 

.UORD L 10027 -. 

ENOTST 

TRAP C»ETST 



sSET UP COMMAND ASCII 
:G0 ISSUE THE COMMAND 
: CLEAR OUP PL AG 
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TEST 10:£XEC'JTE LOCAL PROGRAM (Level II ■ ! crod i agnost i cs ) 



SEQ 112 



4058 
4059 

4060 047156 

4061 047156 

4062 
4063 
4064 
4065 
4066 
4067 

4068 047156 

4069 047156 

4070 



SBTTL TEST 10:EXECUTE LOCAL PROGRAM (Level II a icrodi •gnostic*) 

STMRS 
STARS 

iTEST 10 EXECUTE LOCAL PROGRAM 

s THIS TEST WILL INVOKE. VIA THE OUP EXECUTE LOCAL 

PROGRAM COMMAND. THE CONTROLLER RESIDENT LEVEL 2 
; MICRODIAGNOSTICS. 

STARS 

; : *************************************************************** 

STARS 

; -A*************** ****************** ********** 



4071 


047156 
047156 








TIO:: 


BGNTST 






4072 


















4073 


047156 


032764 


000001 


000014 




BIT 


<«)RPFLG.LUNFLG(R4) ; 


IS THE DRIVE AVAILABLE 


4074 


047164 


001423 








BEQ 


GOlO 


GO DO TEST IF AVAILABLE 


4075 


047166 
047166 


104421 








RFLAGS 
TRAP 


FLAGS i 
C»RFLA 


ELSE GO GET SUPRVISOR FLAGS 




047170 


010037 


002334 






MOV 


RO, FLAGS 




4076 


047174 


032737 


001000 


002334 




BIT 


*PNT, FLAGS 


SEE IF WE'RE PRINTING TEST NUMBERS 


4077 


047202 


001412 








BEQ 


U 


NO. DON'T PRINT BYPASSED 


4078 


047204 










PRINTF 


«flYPASS.L»TEST 


ELSE PRINT THE TEST 




047204 


013746 


002114 






MOV 


L»TEST.-(SPD 






047210 


012746 


047626 






MOV 


#flYPASS.-(SP) 






047214 


012746 


000002 






MOV 


*2.-(SP) 






047220 


010600 








MOV 


SP.RO 






047222 


104417 








TRAP 


C$PNTF 






047224 


062706 


000006 






ADD 


«6.SP 




4079 04723C 








It: 


EXIT 


TST : BYPASSED MESSAGE AND GET OUT 




047230 


104432 








TRAP 


CIEXIT 






Of 7232 


000372 








.WORD 


L10030 . 




4080 


















4081 


047234 


042764 


000010 


000014 


GO 10: 


BIC 


«0UPFLG.LUNFLG(R4} 


CLEAR DUP FLAG 


4082 


047242 


042764 


000020 


000014 




SIC 


*ABTFLG,LUNFLGCR4) 


CLEAR ABORT FLAG 


4083 


047250 


042764 


000040 


000014 




BIC 


«CNTRLC.LUNFLG(R4) 


i CLEAR CONTROL C FLAG 


4084 


047256 


012737 


032640 


002310 




MOV 


*CTRL.FRUIS 


(SET UP FRU POINTER 


4085 


047264 


004737 


037042 






JSR 


PC.PRTW 


GO DO A PORT INITIALIZE 


4086 


047270 


032764 


000001 


000014 




BIT 


#DRPFLG.LUNFL6(R4) 


IS THE DRIVE AVAILABLE 


4087 


047276 


001150 








BNE 


TSTXEX 


GET OUT IF NOT AVAILABLE 


4088 


047300 


012705 


002342 






MOV 


#SCTRLC.R5 


SET UP TO DO THE SCC COMMAND 


4089 


047304 


012737 


000001 


002272 




MOV 


n.ITRCNT 


DO IT ONCE 


4090 


047312 


012737 


032663 


023042 




MOV 


*SCCCMD.CURCMD 


SET UP COMMAND ASCII 


4091 


047320 


004737 


037274 






JSR 


PC.CLSORV 


GO ISSUE THE COMMAND 


4092 


047324 


032764 


000001 


000014 




BIT 


#DRPFLG,LUNFLG(R4) 


IS THE DRIVE AVAILABLE 


4093 


047332 


001132 








BNE 


TSTXEX 


GET OUT IF NOT AVAILABLE 


4094 


047334 


01C705 


002406 






MOV 


♦ONLINE. R5 


SET UP TO 00 THE ONLINE COMMAND 


4095 


047340 


012737 


000001 


002272 




MOV 


#1.ITRCNT 


DO IT ONCE 


4096 


047346 


012737 


032670 


023042 




MOV 


♦ONLCMD.CURCMD 


SET UP COMMAND ASCII 


4097 


047354 


016465 


000006 


000004 




MOV 


MSCPUN(R4).P,UNIT(R5) 


PUT THE UNIT NUMBER IN THE PACKET 


4098 


047362 


004737 


037274 






JSR 


PC.CLSORV 


GO ISSUE THE COMMAND 


4C99 


047366 


032764 


000001 


000014 




BIT 


«0RPFLG.LUNFLG(R4) 


IS THE DRIVE AVAILABLE 



L 
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SEQ 113 



4100 047374 001111 

4101 047376 052764 000010 000014 

4102 047404 012705 002476 

4103 047410 012737 000001 002272 

4104 047416 012737 032721 023042 

4105 047424 004737 037274 

4106 047430 032764 000001 000014 

4107 047436 001070 

4108 047440 032737 000200 177560 

4109 047446 001413 

4110 047450 013705 177562 

4111 047454 042705 000200 

4112 047460 022705 000003 

4113 047464 001004 

4114 047466 052764 000040 000014 

4115 047474 000432 

4116 047476 012705 002524 

4117 047502 012737 000001 002272 

4118 047510 012737 032726 023042 

4119 047516 004737 037274 

4120 047522 032764 000001 000014 

4121 047530 001033 

4122 047532 032764 000020 000014 

4123 047540 001010 

4124 047542 005002 

4125 047544 012703 000020 

4126 047550 005202 

4127 047552 001376 

4128 047554 005303 

4129 047556 001374 

4130 047560 000727 

4131 047562 012705 002554 

4132 047566 012737 000001 002272 

4133 047574 012737 032733 023042 

4134 047602 004737 037274 

4135 047606 032764 000040 000014 

4136 047614 001401 

4137 047616 
047616 104422 

4138 047620 
047620 104432 
0476^^2 000002 

4139 047624 
047624 

047624 104401 

4140 047626 045 116 045 
4141 

4142 047662 

4143 

4154 

4155 

4183 

4184 047662 

4185 

4186 

4197 

4188 



1»: 



2*: 



10* : 



20$: 



6NE 


TSTXEX 


BIS 


*DUPFLG LUNFLG(R4') 


nov 


♦XL0CPR.R5 


nov 


♦1 .ITRCNT 


nov 


*ELPCMD CURCMO 


JSR 


PC .CLSDRV 


BIT 


*DRPFLG . LUNFLG(R4 ) 


BNE 


TSTXEX 


BIT 


•BIT7,RCSR 


6EQ 


2$ 


nov 


RBUF .R5 


BIC 


*BIT7,R5 


CMP 


*3.R5 


BNE 


2$ 


BIS 


*CNTRLC , LUNFLG(R4 ) 


BR 


20$ 


MOV 


*RCVDAT.R5 


MOV 


#1. ITRCNT 


MOV 


*RCVCMD.CURCMD 


JSR 


PC.CLSORV 


BIT 


*DRPFLG , LUNFLGC R4 ) 


BNE 


TSTXEX 


BIT 


*ABTFLG , LUNFLGC R4 ) 


BNE 


20$ 


CLR 


R2 


MOV 


#20. R3 


INC 


R2 


BNE 


10$ 


DEC 


R3 


BNE 


10$ 


BR 


1$ 


MOV 


«AB0RT.R5 


MOV 


*1. ITRCNT 


MOV 


4ABTCMD. CURCMO 


JSR 


PC.CLSORV 


BIT 


»CNTRLC , LUNFLGC R4 ) 


BEQ 


TSTXEX 


BREAK 




TRAP 


CIBRK 


EXIT 


TST 


TRAP 


C$EXIT 


.UORD 


L 10030 -. 


ENDTST 




TRAP 


C$ETST 




.ASCI2 /«»N*A TEST 




.EVEN 


ENDMOD 





L10030: 
BYPASS: 



.TITLE PARAMETER CODING 



GET OUT IF NOT AVAILABLE 
ALL FOLLOWING COMMANDS ARE DUP 
SET UP TO DO ELP COMMAND 
DO IT ONCE 

SET UP COMMAND ASCII 

GO ISSUE THE COMMAND 

IS THE DRIVE AVAILABLE 

GET OUT IF NOT AVAILABLE 

CHECK FOR INPUT FROM KEYBOARD 

IF NONE. CONTINUE 

GET DATA INPUT FROM KEYBOARD 

STRIP PARITY 

CHECK FOR "CONTROL C" INPUT 

IF NOT. CONTINUE 

SET "CONTROL C" FLAG 

GO ABORT MICRODIPGNOSTICS 

SET UP TO DO RECEIVE DATA COMMAND 

DO IT ONCE 

SET UP COMMAND ASCII 
GO ISSUE THE COMMAND 
IS THE DRIVE AVAILABLE 
GET OUT IF NOT AVAILABLE 
ABORT LOCAL PROGRAM ? 
YES. ISSUE ABORT COMMAND 
NO. SET UP DELAY LOW COUNT 
SET UP DELAY HIGH COUNT 
DELAY 



POLL 0IAGL2 PROGRESS 

SET UP TO DO ABORT COMMAND 

00 IT ONCE 

SET UP COMMAND ASCII 

GO ISSUE THE COMMAND 

CHECK IF ABORTING DUE TO "CONTROL C 

IF NOT. EXIT 



*ZZ*k BYPASSEDKN/ 



.SBTTL HARDUARF PARAMETER CODING SECTION 



BGNMOO 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P TABLES. THE 
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HAROUARE PAAAHETER COOING SECTION 



SEQ 114 



4189 
4190 
4191 
4192 
4193 
4194 

4195 047662 
047662 
047664 

4196 
4202 

4203 047664 
047664 
047666 
047670 
047672 

4204 047674 
047674 
047676 
047700 
047702 
047704 

4205 047706 
047706 
047710 
047712 
047714 
047716 

4206 

4207 047720 
047720 

4208 

4209 047722 

4210 047737 

4211 047751 
4212 

4213 
4214 

4215 047774 
047774 

4216 
4223 



MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COKHUNICATIONS 
WITH THE OPERATOR. 



000044 



L«HARO: 



BGNHRD 

.WORD L10031-LJHARD/2 



000031 
047722 
160002 
177564 

001032 
047737 
000777 
000060 
000776 

002032 
047751 
000777 
000000 
000251 



GPRMA TKIPAD ,0.0, 160002 , 177564 . YES 

.WORD TJCOD'T 

.WORD TKIPAD 

.yORD TILOLIM 

.WORD T$HILIM 

GPRMD TKVECT.2.0.777,60,776,YES 

.WORD T I CODE 

.WORD TKVECT 

.WORD 777 

.WORD TILOLIM 

.WORD T$HILIM 

GPRMD TKUNT, 4, 0.777, 0.251. YES 

.WORD T$C00E 

.WORD TKUNT 

.WORD 777 

.WORD TILOLIM 

.WORD T*HILIM 



026004 



EXIT HRD 
.WORD TICOOE 



124 113 111 TKIPAD: .ASCIZ ?TKIP ADDRESS? 

124 113 040 TKVECT: .ASCIZ ?TK VECTOR? 

124 057 115 TKUNT: .ASCIZ TT/MSCP UNIT NUMBER? 

.EVEN 



ENOHRD 
.EVEN 

L10031: 



PARAMETER COOING MACRO rOS.02 

SCTUARE PARAMETER COOING SECTION 



4226 
4227 
422S 
4229 
4230 
4231 

4233 
4234 
4235 
4236 

4237 047774 
047774 
047776 

4238 
4245 
4246 
4247 

4248 047776 
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.SBTTL SOFTWARE PARAMETER C(»ING SECTION 



THE SOFTUARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHirC INSTRUCTIONS BUT ^RE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOU THE SUPERVISOR TO ESTABLISH COMhUNICATIONS 
WITH THE OPERATOR. 



000000 



LJSOET: 



BGNSFT 

.WORD L10032-L$SOFT/2 



.EVEN 



4249 
4250 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 



047776 



L10032: 



ENOSFT 
.EVEN 



;*****************«**************************«****************** 
i *************************************************************** 

COMMUNICATIONS AREA 

THIS IS THE COMMUNICATIONS AREA THAT IS USED 
THROUGHOUT THE PROGRAM IN TESTING THE PERMUTATIONS 
OF THE UQ-PORT INIT SEQUENCE, IT IS ESSENTIAL THAT 
THIS AREA RESIDE IN AN 8KBYTE AREA OF MEMORY FREE 
OF DIAGNOSTIC CODE SO THAT IT MAY BE SUCCESSFULLY 
RELOCATED THROUGHOUT UPPER MEMORY VIA MEMORY MAN- 
AGEMENT. 

; *************************************************************** 
;******************************************************«******** 



4274 












4275 


06 0000 




.-60000 




s START OF THE THIRD 8KBYTE BLOCK 


4276 










iOF VIRTUAL MEMORY SPACE. ACCESIBLE 


4277 










:VIA PAR/POR 2. 


4278 060000 




RDBUF: : 








4279 060000 




COMMBF : 








4280 060000 






' .BLKU 


20. 


: BUFFER SPACE PRECEDING COMM AREA 


4281 060050 




COMMAR : 








4282 060050 






' .BLKU 


514. 


: MAXIMUM COMM AREA LENGTH 


4283 062054 




LASTBF: 








4284 062054 






' .BLKU 


20. 


s BUFFER SPACE SUCCEEDING COMM AREA 


4288 












4289 062124 






LASTAO 
.EVEN 






062124 


000000 




.UORD 


0 




062126 


000000 




.UORD 


0 




062130 




L$LAST: 








4290 062130 






ENOMOD 






4291 


000001 


.EM) 
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Synbel tabl* 



ABORT 


002554 


CWCNT 


003034 G 


omu ' 


000103 




ABTCnO 


032733 G 


CHORES 


003032 G 


C»HSG - 


000023 




ABTFLG 


• 000020 G 


CnORNG 


003014 G 


Ct0PNR> 


000034 




AOR 


• 000020 G 


CMOS A V 


023036 G 


CtOPNU' 


000104 




ASSEMB' 


• 000010 


CW1ERR 


002302 G 


CtPNTB' 


000014 




BAKPAT 


036560 G 


CMPTBL 


002260 G 


C»PNTF« 


000017 




BITO • 


> 000001 G 


CUTBLG 


002304 G 


C»PNTS« 


000016 




BITOO • 


000001 G 


CNTER « 


000000 G 


CtPNTX- 


000015 




BITOl • 


000002 G 


CNTERR 


023322 


CtPUTB' 


000072 




BIT02 • 


000004 G 


CNTFLG 


003026 G 


CtPUTU' 


0000/3 




BIT03 • 


000010 G 


CNTHI 


003024 G 


CtQIO ' 


000377 




BIT04 « 


000020 G 


CNTRLC* 


000040 G 


CtROBU* 


000007 




BIT05 • 


000040 G 


COftlAR 


060050 G 


CtREFG- 


000047 




BZT06 ' 


000100 G 


COMMBF 


060000 G 


CtREL - 


000077 




BIT07 • 


000200 G 


CONIO - 


177777 G 


CtRESE- 


000033 




BZTOS ' 


000400 G 


CRO 


177776 G 


C»REVI- 


000004 




BIT09 - 


001000 G 


CTRL 


032640 G 


C»RFLA» 


000021 




BITl ■ 


000002 G 


CURCMD 


023042 G 


C»RPT « 


000025 




BITIO • 


002000 G 


CtAU • 


000052 


C»SEFG» 


000046 




BITil ■ 


004000 G 


C»AUTO- 


000061 


CISPRI* 


000041 




BIT12 > 


010000 G 


OBRK • 


000022 


C$SVEC- 


000037 




BIT13 - 


020000 G 


C»BSEG' 


000004 


C$TOME" 


000076 




BIT14 • 


040000 G 


OBSUB' 


000002 


OCERR 


023312 




BIT15 > 


100000 G 


C»CLCK- 


000062 


DFPTBL 


002202 


G 


BIT2 ■ 


000004 G 


C»CLEA- 


000012 


DIAGMC' 


000000 




BITS - 


000010 G 


C»CLOS- 


000035 


ORPFLG- 


000001 


G 


BIT4 ■ 


000020 G 


C»CLP1- 


000006 


ORVE 


032655 


G 


BITS • 


000040 G 


CICPBF- 


000074 


ORVER - 


000011 


G 


BIT6 - 


000100 G 


C»CPME- 


000075 


OSCENO 


003024 


G 


BIT7 • 


000200 G 


C»CVEC- 


000036 


OSCRNG 


003000 


G 


BITS - 


000400 G 


C»DCLN- 


000044 


OUPFLG- 


000010 


G 


BIT9 - 


001000 G 


C)DOOU> 


000051 


OUSTFL- 


000017 


G 


BOE - 


000400 G 


C»ORPT- 


000024 


EF.CON- 


000036 


G 


BPNERR 


023342 


C»OU - 


000053 


EF.NEU- 


000035 


G 


BRFLAG- 


000004 G 


C»EDIT- 


000000 


EF.PUR- 


000034 


G 


BYPASS 


047626 G 


C»EROF- 


000055 


EF.RES" 


000037 


G 


B.DI ■ 


000400 G 


OERHR- 


000056 


EF.STA- 


000040 


G 


B.ER > 


100000 G 


CIERRO- 


000060 


ELPCnO 


032721 


G 


B.GO ■ 


000001 G 


CIERSF- 


000054 


EMSGIO 


030512 G 


6. IE * 


000200 G 


OERSO- 


000057 


EMSGll 


030540 G 


B.LF ■ 


000002 G 


C»ESCA- 


000010 


EnSG12 


030601 


G 


B.np ■ 


000100 G 


OESEG- 


000005 


EnSG13 


030650 


G 


B.NV ■ 


002000 G 


CIESUB- 


000003 


EnSG14 


030677 


G 


B.OO • 


000200 G 


C»ETST- 


000001 


EnSG15 


030726 


G 


B.PI - 


000001 G 


CIEXIT- 


000032 


EnSG5 


030334 


G 


B.PP • 


100000 G 


CIFREQ- 


000101 


EnSG6 


030355 


G 


B.QB - 


001000 G 


CIFRME- 


000100 


EMSG7 


030406 


G 


B.Sl • 


004000 G 


CIGETB- 


000026 


EHSG8 


030427 


G 


B.S2 > 


010000 G 


CIGETW- 


000027 


EnSG9 


030465 


G 


B.S3 > 


020000 G 


CIGMAN- 


000043 


END 


041042 




B.S4 • 


040000 G 


CtGPHR- 


000042 


ENDCLE 


041110 




B.UR - 


040000 G 


CIGPRI- 


000040 


ERR 


100000 


G 


CORECV 


037774 G 


C»INIT- 


000011 


ERRBLK 


023060 


G 


CHKCOM 


036610 G 


CIINLP- 


000020 


ERRMSG 


023056 


G 


CKCMEX 


036740 


OMANI- 


000050 


ERRNBR 


023054 


G 


CLSORV 


057274 G 


C$MAP • 


000102 


ERRTYP 


023052 


G 


CMARLG 


002306 G 


CJMEM • 


000031 


EVL 


000004 


G 



68 1 



SEQ 116 



EXIT 


040610 




EXTINT 






EXTVEC 


036404 




EtENO • 


002100 




EtLOAO* 


000035 




FLAG « 


040000 

w w 


G 

U 


FLAGS 


002334 


c 


FRUIS 


002310 




F)AU • 


OOOOiS 

W W 




F$AUTO* 


000020 




F$BGN • 


000040 




F*CLEA» 


000007 




F$OU ■ 


000016 




FIEND * 


000041 




FIHARO* 


000004 




F$HU « 


000013 




FIINIT* 


000006 

w v» w 




Ftjnp • 


000050 




F$n0D - 


000000 




F$nSG > 


000011 




F$PR0T« 


000021 




FIPUR • 


000017 




FIRPT ■ 


000012 




FISEG > 


000003 




FISOFT- 


000005 




F$SRV - 


000010 




F$SUB « 


000002 




FISU - 


000014 




FITEST- 


000001 




GOSCHO 


032714 


G 


GOUST 


002456 




GO 


000001 


G 


GOABO 


040600 




GO 10 


047234 




G02 


041726 




G03 


042510 




G04 


043176 




G05 


043772 




G06 


04t440 




G07 


045260 




G08 


046100 




G09 


047024 




GtCNTO- 


000200 




GIOELh- 


000372 




G$OISP> 


000003 




GIEXCP* 


000400 




G$HILI* 


000002 




GILOLI- 


000001 




GINO - 


000000 




GIOFFS- 


000400 




GIOFSI- 


000376 




GIPRnA> 


000001 




G$PRno- 


000002 




G»PRML- 


000000 




GIRAOA- 


000140 




GIRAOB- 


000000 




G<RAOO« 


000040 





GtRADI ■ 






u # n n V w 


Oft no 30 




u # A' ~ 


oooonA 










HBFAOO 






HELP ■ 


00 Oft no 

www 






wv wc 


u 


HOF ■ 


XV WW 


r 




www 


r 
u 


IBF ■ 


01 OOftft 
vx w w 


r 
u 


IDU ■ 


W W^w 


r 
u 


lER ■ 


09000A 

WC W\^V 


r 
u 


ILLINT 




r 
u 




03707? 




inn ■ 


0O09OO 
wvc w 


(1 


insG 


0410A(t 




INISTP 


00?T1ft 
wc^xo 


n 

19 


INNER 


00737A 
wc^cH 


r 


INTFLG" 


000009 
wwvc 


(1 
ij 


INTnnu 

Xlv I'll IV 




r 
u 


INTRCV 


0360A9 


R 
w 


INTTBL 






INVSTA 






ISR ■ 


000100 
wvx w 


(1 


ITRCNT 


00227? 


w 


IXE • 


004000 




IIAU « 


000041 




I) AUTO* 


000041 




IICLN ■ 


000041 




IIOU - 


000041 




DHRO <• 


000041 




I UNIT" 


000041 




ItnOD ■ 


000041 




IinSG * 


000041 




I$PROT* 


000040 




liPTAB* 


000041 




DPUR m 


000041 

WW" X 




DRPT ■ 


000041 

W W~ X 




DSEG ■ 


000041 




I$SETU» 


WW WWfX 




IISFT • 


000041 
WW wwx 






000041 

WWVVfX 




DSUB ■ 


000041 

WW WW^ X 




IIJST ■ 


000041 

WW WW"VX 




jijnp ■ 


000167 

WWWXW f 




KPARO ■ 


172340 


G 


KPARl ■ 


172342 


G 


KPAR2 ■ 


172344 


G 


KPAR3 ■ 


172346 


G 


KPAR4 * 


172350 


G 


KPAR5 ■ 


17235? 




KPAR6 ■ 


172354 


G 


KPAR7 • 


172356 


G 


KPORO " 


172300 


G 


KPDRl • 


172302 


G 


KPDR2 - 


172304 


G 


KPDR3 > 


172306 


G 



PARAMETER COOING 
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KP0R4 • 172310 G 
KP0R5 • 172312 G 
KP0R6 ■ 172314 G 
KPDfl7 - 172316 G 

KTEXT 036252 

KTFLAG 002274 G 

KTTEST 036102 G 

LASTSf 062054 G 

LINEl 023420 G 

LINE2 023454 G 

LlNe3 023534 G 

LINE4 023564 G 

LINES 023626 G 

LINE6 023703 G 

LINE7 023746 G 
LOE - 040000 G 

LOGUNT 002312 G 

LOOP 037062 

LOT ■ 000010 G 

LUNBLK 002212 G 

LUNTLG- 000014 G 

LfACP 002110 G 

LMPT 002036 G 

LIAU 041144 G 

LIAUT 0C2070 G 

LIAUTO- ««*««* GX 

LICCP 002106 G 

LICLEA 041100 G 

LI CO 002032 G 

LIOEPO 002011 G 

LIOESC 002150 G 

LIOESP 002076 G 

L IDE VP 002060 G 

LtOISP 002124 G 

LIOLY 002116 G 

LIOTP 002040 G 

LIOTYP 002034 G 

LIDU 041130 G 

LI OUT 002072 G 

LIOVTY 023412 G 

LIEr 002052 G 

LIENVI 002044 G 

LIERRT 023052 G 

LIETP 002102 G 

LIEXPl 002046 G 

LIFXP4 002064 G 

LIEXP5 002066 G 

LI HARD 047664 G 

LIHZME 002120 G 

LIHPCP 002016 G 

LIHPTP 002022 G 

LIHU 002202 G 

Li:CP 002104 G 

I UNIT 040620 G 

LILAOP 002026 G 

LILAST 062130 G 

LILOAO 002100 G 



LILUN 


002074 


G 


LinREV 


002050 


G 


LINAnE 


002000 


G 


LI PRIG 


002042 


G 


LIPROT 


023044 


G 


LIPRT 


002112 


G 


LI REPP 


002062 


G 


LIREV 


002010 G 


LIRPT 


035002 


G 


LISOfT 


047776 


G 


LISPC 


002056 


G 


LISPCP 


002020 


G 


LISPTP 


002024 


G 


LISTA 


002030 


G 


LISU 


002212 


G 


LITEST 


002114 


G 


LITIML 


002014 


G 


LIUNIT 


002012 


G 


L 10000 


002210 




LlOOOl 


002212 




L10003 


033542 




L10004 


035000 




LI 0005 


036052 




L10006 


036060 




L10007 


036070 




LlOOlO 


036100 




LlOOll 


041076 




L10012 


041126 




L10013 


041142 




L10014 


041150 




L10015 


041646 




L10016 


041336 




L10017 


041602 




LI 0020 


042430 




L10021 


043116 




L10022 


043712 




L10023 


044360 




L10024 


045200 




L10025 


046020 




L 10026 


046744 




L10027 


047154 




L10030 


047624 




L10031 


047774 




L 10032 


047776 




L2BRD1- 


000024 


G 


L2BR02- 


000030 G 


L2BUR1- 


000014 G 


L2BUR2« 


000020 G 


12CHD - 


000010 G 


L2CRC1- 


000044 


G 


L2CRC2- 


000046 


G 


L20ATA 


040224 


G 


L2DRV > 


000004 


G 


L20U»«» 


033544 


G 


L2ECC1- 


000040 


G 


L2ECC2- 


000042 


G 


L2EL0E- 


0001 55 


G 



L2EL0F- 


000156 


G 


L2ELDS- 


000166 


G 


L2ELEC- 


000140 


G 


L2ELEV- 


000136 


G 


L2ELFL- 


000135 


G 


L2ELFM- 


000134 


G 


L2ELLB- 


000162 


G 


L2EL0F- 


000172 


G 


L2ELPfl- 


000160 


G 


L2ELP1- 


000146 


G 


L2ELP2- 


000150 


G 


L2ELRL- 


000144 


G 


L2ELRT" 


000145 


G 


L2ELRU- 


000170 


G 


L2ELST- 


000154 


G 


L2ELTN- 


000157 


G 


L2ELT0- 


000163 


G 


L2ELT1- 


000164 


G 


L2ELT2- 


000165 


G 


L2ER1 


030763 


G 


L2ER10 


031211 


G 


L2ER11 


031232 


G 


L2ER12 


031246 


G 


L2ER13 


031266 


G 


L2ER14 


031306 


G 


L2ER15 


031334 


G 


L2ER16 


031364 


G 


L2ER17 


031412 


6 


L2ER18 


031430 


G 


L2ER19 


031451 


G 


L2ER2 


031003 


G 


L2ER20 


031467 


6 


L2ER21 


031551 


G 


L2ER22 


031631 


G 


L2ER23 


031720 


G 


L2ER24 


032010 


G 


L2ER25 


032076 


G 


L2ER26 


032167 


G 


L2ER27 


032261 


G 


L2ER3 


031023 


G 


L2ER4 


031040 


G 


L2ER5 


031057 


G 


L2ER6 


031107 


G 


L2ER7 


031127 


6 


L2ERa 


031145 


6 


L2ER9 


031160 


G 


L2ETBL 


023062 


G 


L2nS6 


023312 




L2REP1- 


000050 


G 


L2REP2- 


000052 


G 


L2RSP - 


000011 


G 


L2STA - 


000002 


G 


L2SUR1* 


000034 


G 


L2SUR2> 


000036 


G 


L2TRK • 


000007 


G 


L2TST - 


000006 


G 


L2UNT - 


000012 


G 



2 



SEQ 117 



L21 


024417 


G 


L210 


025073 


G 


L211 


025137 


G 


L212 


025203 


G 


L213 


025247 


G 


L214 


025313 


G 


L215 


025357 


G 


L216 


025423 


G 


L219 


025467 


G 


L22 


024473 


G 


L220 


025533 


G 


L221 


025601 


G 


L222 


025646 


G 


L223 


025710 


G 


L224 


025752 


G 


L225 


026011 


G 


L226 


026053 


G 


L227 


026115 


G 


L228 


026154 


G 


L229 


026213 


G 


L23 


024531 


G 


L230 


026255 


G 


L231 


026317 


G 


L232 


026361 


G 


L233 


026423 


G 


L234 


026462 


G 


L235 


026524 


G 


L236 


026566 


G 


L237 


026630 


G 


L238 


026672 


G 


L239 


026731 


G 


L24 


024571 


G 


L240 


026770 


G 


L241 


027027 


G 


L242 


027071 


G 


L244 


027130 


G 


L24S 


027224 


G 


L246 


027320 


G 


L247 


027414 


G 


L248 


027510 


G 


L249 


027604 


G 


L2S 


024631 


G 


L250 


027700 


6 


L251 


027774 


G 


L252 


030070 


G 


L2S3 


030164 


G 


L2S4 


030260 


G 


L26 


024671 


G 


L27 


0247^1 


G 


L26 


024771 


G 


L29 


025026 


G 


mON - 


000001 


G 


rttUSRO- 


177572 


G 


rtlUSRl* 


177574 


G 


(f1USR2« 


177576 


G 


HnUSR3- 


172516 


G 


m220N- 


000020 


G 



nSCPER 


040520 




hSCPUN* 


000006 


G 


MSCPVR- 


000000 


G 


MSGLEN- 


177774 


G 


NEXT 


040740 




NOKT 


036246 




NUPASS 


040724 




ONEFIL- 


000001 




ONLCnO 


032670 


G 


ONLINE 


002406 




OP.ABT- 


000006 


G 


OP.ELP- 


000003 


G 


OP. END- 


000200 


G 


OP.GOi)" 


000001 


G 


OP.ONL- 


000011 


G 


OP.REC- 


000005 


G 


OP.SCC- 


000004 


G 


OUTER 


002326 


G 


OUN 


100000 


G 


OIAPTS- 


000000 




01 AU • 


000000 




oiBGrm- 


000001 




OIBGNS- 


000000 




OIOU - 


000001 




OIERRT- 


000001 




OIGNSU- 


000000 




OIPOIN- 


000001 




OISETU- 


000000 




PAROFF 


002300 


G 


PASCNT 


002270 


G 


PCKSIZ 


003030 


G 


PDELAY 


036406 


G 


PDLYEX 


036432 




PORECV 


040102 


G 


PNT 


001000 


G 


PRI 


002000 


G 


PRIDAT 


033074 


G 


PRIERR 


033146 


G 


PRIEX 


033536 




PRIINI 


032740 


6 


PR IIP 


033122 


G 


PRZPAO 


033022 


G 


PRISA 


032764 


G 


PRIVAO 


033046 


G 


PRIOO - 


000000 


G 


PRIOl - 


000040 


G 


PRZ02 - 


000100 


G 


PRI03 ■ 


000140 


G 


PR 104 ■ 


000200 


G 


PRI05 - 


000240 


6 


PRI06 - 


000300 


G 


PRI07 - 


000340 


G 


PRTORV 


037632 


G 


PRTINT 


037042 


G 


P.BCNT" 


000014 


G 


P. BUFF • 


000020 


G 


P.CRF . 


000000 


G 



PA«A»CTEIt COOING MACRO T05.02 Thursday 25 Jul 85 09:27 

S>a6«: table 





000014 

WW *~ 


c 

w 


STEPST 


002320 


r 

u 




www 




0300 IS 


w 


STEPl 


056434 


Q 


DFLAG" 


WW^ X 




030016 


c 


STPTBL 


002250 




Tt^AN* 


OOOOOO 

WWW 




000011 


c 


STPIER 


056552 




TIHILI* 


000251 




000020 


G 


STPIEX 


036556 






W W w X 


P.1SD2* 


000022 


G 


SVCCSL * 


000000 




TtLOLI • 


OOOOOO 

w vw vw 


P.*10D • 


000012 


C 


SVCINS • 


000000 






010000 

W A WW 


P.QPZD* 


000010 


G 


SVCSUB* 


000000 




TtLTNO* 


000012 


P.ST3 ■ 


000012 G 


SVCTAG* 


000000 

WWW 




TtNEST' 


177777 


P. UNIT* 


000004 


G 


SVCTST' 


000000 

»w w 




TINSO ' 


OOOOOO 

www 


ABU^ ■ 


177562 


G 




010000 

W A WW 




T$NS1 > 


W Ww.J 


RCSR ■ 


1"'7560 


G 


SI • 


004000 


G 


TtNS2 * 


000002 

W w wt- 


RCVCMO 


052726 


G 


TEMP 


002332 


G 


TtPTNU' 


OOOOOO 

www 


ftCVDAT 


002524 




TF,BLK» 


000010 


G 


TISAVL" 


177777 


ROBur 


060000 


G 


TIHOUT* 


000024 


G 


TISEGL« 


mm 


ROWD 


052707 


G 


TKIP • 


000000 


G 


TtSUBN* 


OOOOOO 


RCSPB^ 


002570 


G 


TKIPAD 


047722 




TITAGL" 


mm 


RCUC*0 


052675 G 


TKIPSV" 


000010 


G 


TtTAGN* 


010033 


RNGS'^P* 


000004 


S 


TKSA ' 


000002 


G 


T»TEMP» 


OOOOOO 

WW w 


RSPADD 


025552 




TKSASV> 


000012 


G 


T*TEST» 


000012 


RSPBlIF 


002574 


G 


TKUNT 


047751 




TITSTH* 


177777 


RSPEND 


005004 


G 


TKVEC " 


000004 


G 


TITSTS- 


OOOOOl 


RSPRNG 


005004 


G 


TKVECT 


047737 




TttAU * 


010014 


RSPSA^ 


025040 


G 


TOUT 


002330 


G 


TltCLE« 


010012 


RSPSTP* 


0C0104 


G 


TRAP4 


036054 


G 


TttOU ' 


010013 


RSPTO 


023402 




TRP4rG 


002276 


G 


TIIHAR* 


010031 


RSTVEC 


056266 


G 


TSTXEX 


047620 




TttHU ' 


010000 


SAEXP 


002514 


G 


TXFER ' 


000005 


G 


T»»INI' 


010011 


SCCCUD 


052665 


G 


TIARGC* 


000002 




TIIMSG- 


010004 


SCTRLC 


002542 




TJCOOE- 


026004 




T$$PRO» 


010002 


SFPTBL 


C02212 


G 


T$ERRN- 


000033 




T»»RPT- 


010005 



START 040672 

. ABS. 062150 000 (RU.I.GBL. ABS.OVR) 

OOOOOO 001 (RU.I.LCL.REL.CON) 

Errors d*t«cltd: 0 

*** AsMRiblcr statistics 



Uork fil* rtads: 355 
Uork f 1* Mritas: 547 

Six* of work filt: 34208 Uords ( 134 Pages) 

Six* of cert pool: 19402 Uords ( 74 Pages) 

Operating system: RSX-liri/PLUS (Under VAX/VMS) 

Elapsed tiiM: 00:18:51.24 

CZTKAB , BIN . CZTKAB . LST / -SP/CR-S VC40R . MLB/ML . CZTKAB . MAC 



68 3 



SEQ 118 





0' 00 IP 




UBPMn 




r 
u 




V* wxv 




LsrMrtr 




f» 
u 


Tt tSUB* 


010017 




wnvn 1 n 




r 
u 


TttSW • 


010001 










TttTES* 


010030 

Wi W iJV 






OT3Ani 


r 
u 


Tl 


0411SP 


G 
u 






r 
u 


Tl.l 


041200 




URFR4 


O* 5*CA 


r 
u 


Tl!2 


041364 






flX^47A 


r 


TIO 


047156 


G 

W 






r 
u 


T2 


041650 








r 
u 


T2EXT 


042424 








r 
u 


13 


042432 


G 






r 
u 


T3EXT 


043112 




URTNTD 




r 
u 


14 


043120 


G 


URPRTE 




r 
u 


T4EXT 


043702 




ur<;f of 

Mn vc 




r 
u 


T5 


043714 


G 




OTTAWA 


r 
u 


T5EXT 


044350 




UR 1 




u 


T6 


044362 


G 


UR9 




r 
u 


T6EXT 


045174 




UP 3 




r 
u 


T7 


045202 


G 


UR4 


0?41 79 


r 

w 


T7EXT 


046014 




UP 5 


0941 47 


r 
\> 


T8 


046022 


G 


UR6 


0949 1 1 
wCtC X X 


r 

w 


T8EXT 


046734 




UP 7 


0949 1 4 

VCtC X"t 


u 


T9 


046746 




UP 8 


0949A't 


u 


T9EXT 


047150 




UP 9 


094'^49 




T9FLAG* 


****** 


GX 


Ul 


033322 




UAM 


000200 


G 


XLOCPR 


002476 




UNERLG 


023372 




XtALUA' 


OOOOOO 




VECTOR 


036316 


G 


X»rALS« 


000040 




VEC4 » 


000004 


G 


XJOTFS* 


000400 




URBUF 


003036 


G 


X»TRUE- 


000020 





